Seite 1 von 1
Thumbnail verlinken + mit Bildbetrachter anzeigen lassen
Verfasst: Do, 25.11.2010 17:01
von Hago
Hallo zusammen,
ich habe in eine Tabelle viele kleine Thumbnails von Bildern eingefügt und hätte gerne, dass bei Klick aufs Thumbnail das Originalbild in einem Bildbetrachter angezeigt wird, in meinem Fall ist das IrfanView.
Gibt es dafür eventuell schon ein fertiges Makro?
Oder kann mir bitte jemand sagen wie ich das schaffen kann?
Grüße, Hago
(OO3.21, Win7)
Re: Thumbnail verlinken + mit Bildbetrachter anzeigen lassen
Verfasst: Do, 25.11.2010 19:42
von Hago
Hallo,
den Aufruf des externen Programms mit shell() habe ich geschafft.
Das Problem ist noch, dass das aufgerufene Programm als Parameter den Pfad und Dateinamen des in der Zelle liegenden Thumbnails abzüglich (-k) braucht.
Das Thumbnail heißt zB DSC_1427-k.jpg
Das Originalbild dann : DSC_1427.jpg
Ich weiß nicht, wie ich den Übergeben kann.
Gruß, Hago
Re: Thumbnail verlinken + mit Bildbetrachter anzeigen lassen
Verfasst: Sa, 27.11.2010 10:22
von turtle47
Hallo Hago,
Hago hat geschrieben:Das Thumbnail heißt zB DSC_1427-k.jpg
Das Originalbild dann : DSC_1427.jpg
Ich weiß nicht, wie ich den Übergeben kann.
Schon mal so versucht:
Code: Alles auswählen
GlobalScope.BasicLibraries.Loadlibrary("Tools")
sName = "DSC_1427-k.jpg"
new_sName = ReplaceString(sName,"","-k")
print new_sName
Viel Erfolg.
Jürgen
Re: Thumbnail verlinken + mit Bildbetrachter anzeigen lassen
Verfasst: Sa, 27.11.2010 13:09
von Hago
Gut, danke, so krieg ich schon mal das "-k" weg.
Was mich jetzt sehr interessieren würde ist, wo du das: 'GlobalScope.BasicLibraries.Loadlibrary("Tools")' her hast.
In diesem Basic findet man ja sehr oft solche langen Zeilen (viele fangen mit com.sun.star. an), die mich etwas verwirren, weil ich einfach keine Ahnung habe, woher ich wissen soll, wo ich was wie benützen soll.
Nun, das "-k" wegzubekommen ist eigentlich nur das halbe Problem - ich habe das wohl nicht deutlich ausgedrückt.
Die Bilder sind in Calc verknüpft.
Ich schaffe es nicht auf ihre Adressen der zuzugreifen, um sie dann dem externen Programm als Parameter zu übergeben.
Gruß, Hago
Re: Thumbnail verlinken + mit Bildbetrachter anzeigen lassen
Verfasst: Sa, 27.11.2010 17:47
von turtle47
Hi Hago,
Hago hat geschrieben:Was mich jetzt sehr interessieren würde ist, wo du das: 'GlobalScope.BasicLibraries.Loadlibrary("Tools")' her hast.
Hmm, woher weis man etwas? Entweder man hat es irgendwo gelesen, gehört oder ausprobiert.
Dazu schau z.B. mal
Michaels Homepage an.
Hago hat geschrieben:Ich schaffe es nicht auf ihre Adressen der zuzugreifen, um sie dann dem externen Programm als Parameter zu übergeben.
Folgendes Makro durchläuft alle Grafiken in der Tabelle1 und liest die URL aus:
Code: Alles auswählen
GlobalScope.BasicLibraries.Loadlibrary("Tools")
sName = "DSC_1427-k.jpg"
new_sName = ReplaceString(sName,"","-k")
oDrawPage = ThisComponent.Sheets.getByName("Tabelle1").DrawPage
for i=0 to oDrawPage.getCount()-1
oGraph = oDrawPage.getByIndex(i)
sURL = oGraph.GraphicURL
print surl
if instr(surl,new_sName) then
Print "Mach was du möchtest mit sURL"
exit sub
end if
next i
End Sub
Jürgen
Re: Thumbnail verlinken + mit Bildbetrachter anzeigen lassen
Verfasst: Sa, 27.11.2010 18:31
von Hago
Hallo Jürgen,
irgendwas klappt da nicht
Wenn ich das Makro (vielen Dank noch) aufrufe, kommt ein Fensterchen mit der Meldung:
BASIC-Laufzeitfehler
Eigenschaft oder Methode nicht gefunden: GraphicURL
Hago
Re: Thumbnail verlinken + mit Bildbetrachter anzeigen lassen
Verfasst: Sa, 27.11.2010 18:50
von turtle47
Hago hat geschrieben:
irgendwas klappt da nicht
Wenn ich das Makro (vielen Dank noch) aufrufe, kommt ein Fensterchen mit der Meldung:
Dann liegen da noch andere Objekte auf der Drawpage was man abfangen muss.
Code: Alles auswählen
'...........
oGraph = oDrawPage.getByIndex(i)
if oGraph.shapetype = "com.sun.star.drawing.GraphicObjectShape" then
'...........
end if
end if
next i
Re: Thumbnail verlinken + mit Bildbetrachter anzeigen lassen
Verfasst: Sa, 27.11.2010 19:21
von Hago
Toll, funktioniert.
Vielen Dank.
Gruß, Hago