OpenOffice.info

ok, das ist wonach ich gesucht habe.
Danke Euch :)

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

Moin,
per Makro geht das.
[code]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[/code]
Die Namen der Bilder auf Tabelle 2 müssen in Spalte A der Tabelle 1 in die Liste der Datengültigkeit eingetragen werden.
Dann kann man in Spalte A den Bildnamen wählen und in Spalte C erscheint das Bild als Kopie eines der Bilder von Tabelle 2.

Beispiel anbei.

Gruß R

Hallo,

teste mal HYPERLINK().

Hallo sashke, nach meinem (beschränkten) Wissenstand dürfte das Einfügen von Bildern mit einer Calc Funktion wie Sverweis() nicht klappen. Die Calc-Funktionen greifen direkt auf den Zelleninhalt zu, in die Tabelle eingefügte grafische Elemente wie Bilder, Icons oder Grafiken liegen hingegen auf der sog. "Drawpage" eines Tabellenblattes, siehe screenshot aus dem Buch "Makro Grundlagen" von Thomas Krumbein. Diese sind aber nicht Inhalt irgend einer Zelle.
[quote]Beim SVerweis kann ich z.b. verschiedenen Artikeln ,Preise zuweisen. Wenn ich nun Hammer eingebe wird mir durch den SVerweis der zugewiesene Preis angezeigt.
Das gleiche möchte ich mit Bildern erreichen.[/quote]
Eine andere Möglichkeit wäre die Verlinkung deiner Bilder in einem eigenen Ordner mittels Hyperlink. Das Bild wird dann durch ein externes Prog. geöffnet.
Gruß Helmut

Entschuldigt mich bitte, habe das schlecht formuliert.
Bräuchte das wie beim SVerweis.
Beim SVerweis kann ich z.b. verschiedenen Artikeln ,Preise zuweisen. Wenn ich nun Hammer eingebe wird mir durch den SVerweis der zugewiesene Preis angezeigt.
Das gleiche möchte ich mit Bildern erreichen.

Ich hab mal etwas vorbereitet:

[attachment=0]bilder_auswahl.ods[/attachment]

viel Spass!

Ich verstehe Bahnhof. Wenn du "Säge" schreibst, dann soll das Dokument den Inhalt deuten und das Sägebild zeigen ??
Oder sollte das der NAME des Bilde sein, z.B. "Säge.jpg" ?

Diese Funktion ist echt geil,
ich würde dies allerdings gerne dynamisch haben,,
wenn ich in a1 Hammer eingebe soll in b1 das bild vom Hammer erscheinen.
Wenn ich in a1 Säge eingebe, soll in b1 das entsprechende Sägebild erscheinen.

Hallo,

Mit Hilfe von Kommentaren.

Kommentar einfügen → Leerzeichen eingeben → Bild einfügen


[attachment=0]Bild in Kommentar.ods[/attachment]


Gruß
Peter

Hallo,
gibt es vielleicht mittlerweile eine Möglichkeit Bilder zu Namen anzeigen zu lassen.
Z.b. wenn ich Hammer schreibe wird mir das entsprechende Bild angezeigt. Logischerweise werden die Bilder mit Namen vorher hinterlegt.