OpenOffice.info

Code: Alles auswählen

Sub onChangeValue(oEvent As Variant)
Dim Size As New com.sun.star.awt.Size
Dim Size_max As New com.sun.star.awt.Size

    If oEvent.Celladdress.Column <> 0 Then Exit Sub
    
    sNewPictureName = oEvent.FormulaLocal
    lenText = Len(sNewPictureName)
    oSheets = ThisComponent.Sheets
    oSheet1 = oSheets(0)
    oDrawpage = oSheet1.Drawpage
    oSheet2 = oSheets(1)
    oDrawPage2 = oSheet2.DrawPage
    oNewGrafikshape = ThisComponent.createInstance("com.sun.star.drawing.GraphicObjectShape")	
    For j = 0 to oDrawPage2.getCount()-1
        oShape = oDrawPage2(j)
        If oShape.Name = sNewPictureName Then
            oAnchorCell = oSheet1.getCellByPosition(2,oEvent.Celladdress.row)                  
            oNewGrafikshape.Graphic = oShape.Graphic
            oDrawpage.add(oNewGrafikshape)
            oNewGrafikshape.Anchor = oAnchorCell
            Size_max.width = oAnchorCell.Size.Width'<------ max. Bildbreite
            Size_max.height = oAnchorCell.Size.Height'<------ max. Bildhöhe
            new_Original_Size = oNewGrafikshape.Graphic.SizePixel
            Factor_Width=Size_max.width/new_Original_Size.width
            Factor_Height=Size_max.Height/new_Original_Size.Height
            if Factor_Width<=Factor_Height then 
                 factor=Factor_Width
            else
                 factor=Factor_Height
            endif
            size.width = new_Original_Size.width*factor
            size.Height = new_Original_Size.Height*factor
            oNewGrafikshape.setSize(size)
            Exit Sub
        EndIf
    next j
End Sub