19#include <com/sun/star/beans/XPropertySet.hpp>
20#include <com/sun/star/awt/Gradient.hpp>
21#include <com/sun/star/awt/GradientStyle.hpp>
22#include <ooo/vba/office/MsoGradientStyle.hpp>
44 awt::Gradient aGradient;
50 aGradient.Style = awt::GradientStyle_LINEAR;
51 aGradient.StartColor =
ForeColor()->getRGB();
52 aGradient.EndColor =
BackColor()->getRGB();
55 aGradient.XOffset = 0;
56 aGradient.YOffset = 0;
57 aGradient.StartIntensity = 100;
58 aGradient.EndIntensity = 100;
59 aGradient.StepCount = 1;
79 drawing::FillStyle nFillStyle;
81 if( nFillStyle == drawing::FillStyle_NONE )
89 drawing::FillStyle aFillStyle;
97 if( aFillStyle == drawing::FillStyle_NONE )
107 sal_Int16 nTransparence = 0;
108 double dTransparence = 0;
109 m_xPropertySet->getPropertyValue(
"FillTransparence" ) >>= nTransparence;
110 dTransparence =
static_cast<double>( nTransparence );
111 dTransparence /= 100;
112 return dTransparence;
118 sal_Int16 nTransparence =
static_cast< sal_Int16
>( _transparency * 100 );
133 if( style == office::MsoGradientStyle::msoGradientHorizontal )
138 else if( style == office::MsoGradientStyle::msoGradientVertical )
143 else if( style == office::MsoGradientStyle::msoGradientDiagonalDown )
148 else if( style == office::MsoGradientStyle::msoGradientDiagonalUp )
155uno::Reference< msforms::XColorFormat > SAL_CALL
163uno::Reference< msforms::XColorFormat > SAL_CALL
174 return "ScVbaFillFormat";
177uno::Sequence< OUString >
182 "ooo.vba.msforms.FillFormat"
css::uno::Reference< css::uno::XComponentContext > mxContext
virtual css::uno::Reference< ov::XHelperInterface > SAL_CALL getParent() override
Sequence< OUString > aServiceNames