vbaobj: One more ctor feature for ScVbaGlobals.

Change-Id: I741d1e0af1d6f631b321b76172b988262c0f709f

sc/source/ui/vba/service.cxx

@@ -46,10 +46,6 @@ namespace window
 {
 extern sdecl::ServiceDecl const serviceDecl;
 }
-namespace globals
-{
-extern sdecl::ServiceDecl const serviceDecl;
-}
 namespace hyperlink
 {
 extern sdecl::ServiceDecl const serviceDecl;
@@ -66,7 +62,7 @@ extern "C"
         registry::XRegistryKey * pRegistryKey )
     {
     void* pRet =  component_getFactoryHelper(
-            pImplName, pServiceManager, pRegistryKey, range::serviceDecl, workbook::serviceDecl, worksheet::serviceDecl, globals::serviceDecl, window::serviceDecl, hyperlink::serviceDecl, application::serviceDecl );
+            pImplName, pServiceManager, pRegistryKey, range::serviceDecl, workbook::serviceDecl, worksheet::serviceDecl, window::serviceDecl, hyperlink::serviceDecl, application::serviceDecl );
     return pRet;
     }
 }

sc/source/ui/vba/vbaglobals.cxx

@@ -16,7 +16,6 @@
  *   except in compliance with the License. You may obtain a copy of
  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  */
-#include <vbahelper/helperdecl.hxx>
 #include "vbaglobals.hxx"
 
 #include <sal/macros.h>
@@ -288,14 +287,12 @@ ScVbaGlobals::getServiceNames()
         return aServiceNames;
 }
 
-namespace globals
+extern "C" SAL_DLLPUBLIC_EXPORT css::uno::XInterface * SAL_CALL
+ScVbaGlobals_get_implementation(
+    css::uno::XComponentContext *context,
+    css::uno::Sequence<css::uno::Any> const &arguments)
 {
-namespace sdecl = comphelper::service_decl;
-sdecl::vba_service_class_<ScVbaGlobals, sdecl::with_args<true> > serviceImpl;
-extern sdecl::ServiceDecl const serviceDecl(
-    serviceImpl,
-    "ScVbaGlobals",
-    "ooo.vba.excel.Globals" );
+    return cppu::acquire(new ScVbaGlobals(arguments, context));
 }
 
 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */

sc/util/vbaobj.component

@@ -26,7 +26,8 @@
       constructor="ScVbaEventsHelper_get_implementation">
     <service name="com.sun.star.script.vba.VBASpreadsheetEventProcessor"/>
   </implementation>
-  <implementation name="ScVbaGlobals">
+  <implementation name="ScVbaGlobals"
+      constructor="ScVbaGlobals_get_implementation">
     <service name="ooo.vba.excel.Globals"/>
   </implementation>
   <implementation name="ScVbaHyperlink">