Apache OpenOffice Community Forum

Code: Select all

Private Sub CommandButton1_Click()
    Dim szPicFileName As String
    Dim rFirstRow As Long, rLastRow As Long
    Dim cFirstColumn As Integer, cLastColumn As Integer
     
     '   Get the filename & location of the picture
    szPicFileName = Application.GetOpenFilename()
     
    On Error Resume Next
    Set pic = ActiveSheet.Pictures.Insert(szPicFileName)
    On Error GoTo 0
    If Not pic Is Nothing Then 'Found it!'
         
        rFirstRow = ActiveCell.Row
        rLastRow = ActiveCell.Row + 13
        cFirstColumn = ActiveCell.Column
        cLastColumn = ActiveCell.Column + 4
        
        Set rng = Range(Cells(rFirstRow, cFirstColumn), Cells(rLastRow, cLastColumn))
        With pic
            .Height = rng.Height
            .Width = rng.Width
            .Left = rng.Left
            .Top = rng.Top
        End With
    End If
End Sub

Code: Select all

Option VBASupport 1

Sub Insert 
   Dim szPicFileName As String 
   Dim URL As String, sGraphicService As String 
   Dim oDrawPages As Object, oDrawPage As Object 
   Dim TheSize As New com.sun.star.awt.Size
   Dim aPosition As New com.sun.star.awt.Point
 
   Doc = ThisComponent 
   Sheet = Doc.Sheets.getByIndex(0) 
   sGraphicService = "com.sun.star.drawing.GraphicObjectShape" 
   oDrawPage = Sheet.getDrawPage() 
   szPicFileName = Application.GetOpenFilename()
   
   url=ConvertToURL(szPicFileName)
   larg=9150 
   alt=6250 
   posX=280 
   posY=31860 
   sGraphicService = "com.sun.star.drawing.GraphicObjectShape" 
   oDrawPage = Sheet.getDrawPage() 
   oGraphic = Doc.createInstance(sGraphicService) 
   oGraphic.GraphicURL = URL 
   oDrawPage.add(oGraphic) 
   REM Size the object 
   TheSize.width=larg 
   TheSize.height=alt 
   oGraphic.setsize(TheSize) 
   REM Position the object 
   aPosition.X = posX 
   aPosition.Y = posY 
   oGraphic.setposition(aPosition) 
 end sub