--- sc/source/ui/vba//vbadialog.cxx	
+++ sc/source/ui/vba//vbadialog.cxx
@@ -64,37 +64,6 @@ ScVbaDialog::Show() throw(uno::RuntimeEx
 	}
 }	
 
-uno::Any
-ScVbaDialog::getParent() throw (uno::RuntimeException)
-{
-	uno::Reference< vba::XGlobals > xGlobals = ScVbaGlobals::getGlobalsImpl( m_xContext );
-	uno::Reference< excel::XApplication > xApplication = xGlobals->getApplication();
-	if ( !xApplication.is() )
-	{
-		throw uno::RuntimeException(
-			::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ScVbaDialgs::getParent: Couldn't access Application object") ),uno::Reference< XInterface >() );
-	}
-	return uno::Any(xApplication);
-}
-                                                                                                                             
-::sal_Int32
-ScVbaDialog::getCreator() throw (uno::RuntimeException)
-{
-	// #TODO #FIXME
-	return 0;
-}
-uno::Reference< excel::XApplication >
-ScVbaDialog::getApplication() throw (uno::RuntimeException)
-{
-	uno::Reference< excel::XApplication > xApplication =  ScVbaGlobals::getGlobalsImpl( m_xContext )->getApplication();
-	if ( !xApplication.is() )
-	{
-		throw uno::RuntimeException(
-		::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "ScVbaWorkbooks::getParent: Couldn't access Application object" ) ),
-		uno::Reference< XInterface >() );
-	}
-	return xApplication;
-}
 
 static const rtl::OUString aStringList[]=
 {
@@ -135,3 +104,21 @@ ScVbaDialog::mapIndexToName( sal_Int32 n
 	return rtl::OUString();
 }
 
+rtl::OUString& 
+ScVbaDialog::getServiceImplName()
+{
+	static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("ScVbaPivotTable") );
+	return sImplName;
+}
+
+uno::Sequence< rtl::OUString > 
+ScVbaDialog::getServiceNames()
+{
+	static uno::Sequence< rtl::OUString > aServiceNames;
+	if ( aServiceNames.getLength() == 0 )
+	{
+		aServiceNames.realloc( 1 );
+		aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("org.openoffice.excel.PivotTable" ) );
+	}
+	return aServiceNames;
+}
