OpenOffice.info

Code: Alles auswählen

Sub S_Find_cells
    dim nlength as integer
    odoc = Thiscomponent
    osheet = odoc.sheets.getbyname("Tabelle1")
    oPage = osheet.drawpage
    oRange = osheet.getcellrangebyname("A2:A6")'<------ Spalte mit Hyperlinks
    for i = 0 to oRange.Rows.count - 1
        ocell = oRange.getcellbyposition(0,i)
        sUrl = converttourl(ocell.formula)
        if sUrl = "" then goto 100
        nlength = len(sUrl)
        for k = 1 to nlength - 1
            if mid(sUrl,nlength-k,1) = "." then  
                nExtension = nlength - k
            endif
            if mid(sUrl,nlength - k,1) = "/" then  
                nBackslash = nlength-k
                exit for
            endif
        next k
        sGrafikname = mid(sUrl,nBackslash + 1, nExtension-nBackslash-1)
        insertgrafik(opage,ocell,surl,odoc,sgrafikname)
        100:
    next i
end sub

Sub insertgrafik(opage,ocell,urlgrafik,odoc,grafikname)
    Dim Size As New com.sun.star.awt.Size
    Dim Size_max As New com.sun.star.awt.Size
    oGrafik = oDoc.createInstance("com.sun.star.drawing.GraphicObjectShape")
    oGrafik.GraphicURL = urlgrafik
    oGrafik.name = grafikname
    'Ankerposition festlegen   
    opage.add(oGrafik)
    oGrafik.Anchor = oCell
    Size_max.width = 7000'<------ max. Bildbreite
    Size_max.height = 5000'<------ max. Bildhöhe
    new_Original_Size = oGrafik.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
    oGrafik.setSize(size)
End Sub

Code: Alles auswählen

Sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")


    dim args3(2) as new com.sun.star.beans.PropertyValue
    osheet = thiscomponent.sheets.getbyname("Tabelle1")
    oRange = osheet.getcellrangebyname("A2:A5")
    for i = 0 to oRange.Rows.count - 1
        ocell = oRange.getcellbyposition(0,i)
        sUrl = converttourl(ocell.formula)
        args3(0).Name = "FileName"
        args3(0).Value = sUrl
        args3(1).Name = "FilterName"
        args3(1).Value = "JPEG - Joint Photographic Experts Group"
        args3(2).Name = "AsLink"
        args3(2).Value = false
 
dispatcher.executeDispatch(document, ".uno:InsertGraphic", "", 0, args3())
       
   next i
   
End Sub

Code: Alles auswählen

Sub Main
    dim args3(2) as new com.sun.star.beans.PropertyValue
    osheet = thiscomponent.sheets.getbyname("Tabelle1")
    oRange = osheet.getcellrangebyname("A2:A5")
    for i = 0 to oRange.Rows.count - 1
        ocell = oRange.getcellbyposition(0,i)
        sUrl = converttourl(ocell.formula)
        args3(0).Name = "FileName"
        args3(0).Value = sUrl
        args3(1).Name = "FilterName"
        args3(1).Value = "JPEG - Joint Photographic Experts Group"
        args3(2).Name = "AsLink"
        args3(2).Value = false
        ... usw...

    next i
End Sub

Code: Alles auswählen

dim args3(2) as new com.sun.star.beans.PropertyValue
args3(0).Name = "FileName"
args3(0).Value = "file://localhost/Volumes/Firma/001%20Bilder%20&%20Videos%20&%20PSD/Rohformate/Samsung_M8800_afsl_b.jpg"
args3(1).Name = "FilterName"
args3(1).Value = "JPEG - Joint Photographic Experts Group"
args3(2).Name = "AsLink"
args3(2).Value = false

dispatcher.executeDispatch(document, ".uno:InsertGraphic", "", 0, args3())