2 files changed, 13 insertions, 0 deletions
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;