OpenOffice.info

Toll, funktioniert.
Vielen Dank.

Gruß, Hago

	'...........
		oGraph = oDrawPage.getByIndex(i)
		if oGraph.shapetype = "com.sun.star.drawing.GraphicObjectShape" then		
	'...........	
	end if
	end if
	next i

[quote="Hago"]
irgendwas klappt da nicht
Wenn ich das Makro (vielen Dank noch) aufrufe, kommt ein Fensterchen mit der Meldung:[/quote]

Dann liegen da noch andere Objekte auf der Drawpage was man abfangen muss.

[code] '...........
oGraph = oDrawPage.getByIndex(i)
if oGraph.shapetype = "com.sun.star.drawing.GraphicObjectShape" then
'...........
end if
end if
next i[/code]

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

	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

Hi Hago,

[quote="Hago"]Was mich jetzt sehr interessieren würde ist, wo du das: 'GlobalScope.BasicLibraries.Loadlibrary("Tools")' her hast.[/quote]
Hmm, woher weis man etwas? Entweder man hat es irgendwo gelesen, gehört oder ausprobiert. :wink:

Dazu schau z.B. mal [url=http://www.dannenhoefer.de/faqstarbasic/Objekte,Methoden,Eigenschaften.html]Michaels[/url] Homepage an.[quote="Hago"]Ich schaffe es nicht auf ihre Adressen der zuzugreifen, um sie dann dem externen Programm als Parameter zu übergeben.[/quote]

Folgendes Makro durchläuft alle Grafiken in der Tabelle1 und liest die URL aus:

[code] 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[/code]

Jürgen

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

GlobalScope.BasicLibraries.Loadlibrary("Tools")
sName = "DSC_1427-k.jpg"
new_sName = ReplaceString(sName,"","-k")
print new_sName

Hallo Hago,

[quote="Hago"]Das Thumbnail heißt zB DSC_1427-k.jpg
Das Originalbild dann : DSC_1427.jpg
Ich weiß nicht, wie ich den Übergeben kann.[/quote]

Schon mal so versucht:
[code]GlobalScope.BasicLibraries.Loadlibrary("Tools")
sName = "DSC_1427-k.jpg"
new_sName = ReplaceString(sName,"","-k")
print new_sName[/code]

Viel Erfolg.

Jürgen

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

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)