diff options
-rw-r--r-- | oovbaapi/ooo/vba/excel/Constants.idl | 12 | ||||
-rw-r--r-- | oovbaapi/ooo/vba/excel/XInterior.idl | 1 | ||||
-rw-r--r-- | sc/source/ui/vba/vbainterior.cxx | 11 | ||||
-rw-r--r-- | sc/source/ui/vba/vbainterior.hxx | 2 |
4 files changed, 26 insertions, 0 deletions
diff --git a/oovbaapi/ooo/vba/excel/Constants.idl b/oovbaapi/ooo/vba/excel/Constants.idl index 061e679d61db..af32f2cccf8b 100644 --- a/oovbaapi/ooo/vba/excel/Constants.idl +++ b/oovbaapi/ooo/vba/excel/Constants.idl @@ -168,6 +168,18 @@ module ooo { module vba { module excel { const long xlWorksheet4 = 1; const long xlWorksheetCell = 3; const long xlWorksheetShort = 5; + const long xlThemeColorAccent1 = 5; + const long xlThemeColorAccent2 = 6; + const long xlThemeColorAccent3 = 7; + const long xlThemeColorAccent4 = 8; + const long xlThemeColorAccent5 = 9; + const long xlThemeColorAccent6 = 10; + const long xlThemeColorDark1 = 1; + const long xlThemeColorDark2 = 3; + const long xlThemeColorFollowedHyperlink = 12; + const long xlThemeColorHyperlink = 11; + const long xlThemeColorLight1 = 2; + const long xlThemeColorLight2 = 4; }; }; }; }; diff --git a/oovbaapi/ooo/vba/excel/XInterior.idl b/oovbaapi/ooo/vba/excel/XInterior.idl index aef589de9327..06baa2645864 100644 --- a/oovbaapi/ooo/vba/excel/XInterior.idl +++ b/oovbaapi/ooo/vba/excel/XInterior.idl @@ -38,6 +38,7 @@ interface XInterior [attribute] any Pattern; [attribute] any PatternColor; [attribute] any PatternColorIndex; + [attribute] any ThemeColor; }; diff --git a/sc/source/ui/vba/vbainterior.cxx b/sc/source/ui/vba/vbainterior.cxx index 51b4c2270615..62f2d26f1766 100644 --- a/sc/source/ui/vba/vbainterior.cxx +++ b/sc/source/ui/vba/vbainterior.cxx @@ -384,6 +384,17 @@ ScVbaInterior::setPatternColorIndex( const uno::Any& _patterncolorindex ) throw uno::RuntimeException("Invalid Pattern Color" ); } +uno::Any SAL_CALL ScVbaInterior::getThemeColor() +{ + // Just a stub for now. + return uno::makeAny(static_cast<sal_Int32>(0)); +} + +void SAL_CALL ScVbaInterior::setThemeColor(const uno::Any& /*rAny*/) +{ + // Just a stub for now. +} + OUString ScVbaInterior::getServiceImplName() { diff --git a/sc/source/ui/vba/vbainterior.hxx b/sc/source/ui/vba/vbainterior.hxx index 9bb86ab308c0..d036392e25ec 100644 --- a/sc/source/ui/vba/vbainterior.hxx +++ b/sc/source/ui/vba/vbainterior.hxx @@ -70,6 +70,8 @@ public: virtual void SAL_CALL setPatternColor( const css::uno::Any& _patterncolor ) override; virtual css::uno::Any SAL_CALL getPatternColorIndex() override; virtual void SAL_CALL setPatternColorIndex( const css::uno::Any& _patterncolorindex ) override; + css::uno::Any SAL_CALL getThemeColor() override; + void SAL_CALL setThemeColor(const css::uno::Any& rAny) override; //XHelperInterface virtual OUString getServiceImplName() override; virtual css::uno::Sequence<OUString> getServiceNames() override; |