--- sc/source/ui/vba//vbacombobox.cxx	
+++ sc/source/ui/vba//vbacombobox.cxx
@@ -42,12 +42,17 @@ using namespace org::openoffice;
 const static rtl::OUString CONTROLSOURCEPROP( RTL_CONSTASCII_USTRINGPARAM("DataFieldProperty") );
 const static rtl::OUString ITEMS( RTL_CONSTASCII_USTRINGPARAM("StringItemList") );
 
-ScVbaComboBox::ScVbaComboBox( const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< beans::XPropertySet >& xProps ) : m_xContext(xContext), m_xProps( xProps ) 
+ScVbaComboBox::ScVbaComboBox( const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< css::drawing::XControlShape >& xControlShape ) : ComboBoxImpl_BASE( xContext, xControlShape )
 {
 	// grab the default value property name
 	m_xProps->getPropertyValue( CONTROLSOURCEPROP ) >>= sSourceName;
 }
 
+ScVbaComboBox::ScVbaComboBox( const uno::Reference< uno::XComponentContext >& xContext, const uno::Reference< beans::XPropertySet >& xPropSet, const css::uno::Reference< css::drawing::XControlShape > xControlShape ) : ComboBoxImpl_BASE( xContext, xPropSet, xControlShape )
+{
+	m_xProps->getPropertyValue( CONTROLSOURCEPROP ) >>= sSourceName;
+}
+
 
 // Attributes
 uno::Any SAL_CALL 
@@ -80,6 +85,7 @@ ScVbaComboBox::setText( const ::rtl::OUS
 void SAL_CALL 
 ScVbaComboBox::AddItem( const uno::Any& pvargItem, const uno::Any& pvargIndex ) throw (uno::RuntimeException)
 {
+
 	if ( pvargItem.hasValue()  )
 	{
 		uno::Sequence< rtl::OUString > sList;
@@ -136,6 +142,6 @@ ScVbaComboBox::AddItem( const uno::Any& 
 void SAL_CALL 
 ScVbaComboBox::Clear(  ) throw (uno::RuntimeException)
 {
-		setValue( uno::makeAny( rtl::OUString() ) );
-		m_xProps->setPropertyValue( ITEMS, uno::makeAny( uno::Sequence< rtl::OUString >() ) );
+	setValue( uno::makeAny( rtl::OUString() ) );
+	m_xProps->setPropertyValue( ITEMS, uno::makeAny( uno::Sequence< rtl::OUString >() ) );
 }
