applied_patches/0444-vba-fix-checkbox-ole-access.diff

   1 diff --git vbahelper/source/msforms/vbacontrol.cxx vbahelper/source/msforms/vbacontrol.cxx
   2 index 3503631..623b0cd 100644
   3 --- vbahelper/source/msforms/vbacontrol.cxx
   4 +++ vbahelper/source/msforms/vbacontrol.cxx
   5 @@ -416,6 +416,8 @@ ScVbaControl* ScVbaControlFactory::createControl(const uno::Reference< drawing::
   6              return new ScVbaLabel( xVbaParent, m_xContext, xControlShape, m_xModel, new ConcreteXShapeGeometryAttributes( m_xContext, uno::Reference< drawing::XShape >( xControlShape, uno::UNO_QUERY_THROW ) ) );
   7          case form::FormComponentType::TEXTFIELD:
   8              return new ScVbaTextBox( xVbaParent, m_xContext, xControlShape, m_xModel, new ConcreteXShapeGeometryAttributes( m_xContext, uno::Reference< drawing::XShape >( xControlShape, uno::UNO_QUERY_THROW ) ) );
   9 +        case form::FormComponentType::CHECKBOX:
  10 +            return new ScVbaCheckbox( xVbaParent, m_xContext, xControlShape, m_xModel, new ConcreteXShapeGeometryAttributes( m_xContext, uno::Reference< drawing::XShape >( xControlShape, uno::UNO_QUERY_THROW ) ) );
  11          case form::FormComponentType::RADIOBUTTON:
  12              return new ScVbaRadioButton( xVbaParent, m_xContext, xControlShape, m_xModel, new ConcreteXShapeGeometryAttributes( m_xContext, uno::Reference< drawing::XShape >( xControlShape, uno::UNO_QUERY_THROW ) ) );
  13          case form::FormComponentType::LISTBOX: