oovbaapi: add XlThemeColor Enumeration (Excel)

As documented at
<https://msdn.microsoft.com/en-us/library/office/ff839402.aspx>.

And also extend ov::excel::XInterior with a ThemeColor property, as
documented at
<https://msdn.microsoft.com/en-us/library/office/ff820778.aspx>;
implementation is just a stub for now.

Change-Id: I05f1490cdc366f5db127d340cab5f51efcafa862
Reviewed-on: https://gerrit.libreoffice.org/38522Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Miklos Vajna <vmiklos@collabora.co.uk>

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;
     };
 }; }; };
 

oovbaapi/ooo/vba/excel/XInterior.idl

@@ -38,6 +38,7 @@ interface XInterior
     [attribute]  any  Pattern;
     [attribute]  any  PatternColor;
     [attribute]  any  PatternColorIndex;
+    [attribute]  any  ThemeColor;
 };
 
 

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()
 {

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;