My code contains
Code: Select all
BitmapPath = "Z:\Products-Internal\Vista\Pricing_&_Quoting\bronze_thumbnail_for_stacking_window_draw_macro.jpg"
Later in the code I call the Sub like so:
Code: Select all
DrawPolygonBitmap (SectionPoints,oDP,BitmapPath)
Code: Select all
Sub DrawPolygonBitmap(SectionPoints as Object, oDP as Object, BitmapPath as String) 'took out bitmap size
oShape = ThisComponent.createInstance( "com.sun.star.drawing.PolyPolygonShape" )
oDP.add(oShape)
oShape.PolyPolygon = Array(SectionPoints)
oShape.LineStyle = com.sun.star.drawing.LineStyle.SOLID
oShape.FillStyle = com.sun.star.drawing.FillStyle.BITMAP
oShape.FillBitmapURL = BitmapPath
oShape.FillBitmapMode = com.sun.star.drawing.BitmapMode.REPEAT
oShape.LineWidth = 20
oShape.LineColor = RGB(0,0,0)
End Sub