Bilder mit Namen anzeigen

[sashke]

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.

[Mondblatt24]

Hallo,

Mit Hilfe von Kommentaren.

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

Bild in Kommentar.ods

(24.16 KiB) 197-mal heruntergeladen

Gruß
Peter

[sashke]

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.

[quotsi]

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" ?

[Karolus]

Ich hab mal etwas vorbereitet:

bilder_auswahl.ods

(7.83 KiB) 220-mal heruntergeladen

viel Spass!

[sashke]

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.

[Helmut_S]

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.

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.

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

[HeritzP]

Hallo,

teste mal HYPERLINK().

[F3K Total]

Moin,
per Makro geht das.

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

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

[sashke]

ok, das ist wonach ich gesucht habe.
Danke Euch