Grafiken Inhalt, Position, Größe fest"nageln"

[Albert15]

Bei der Übersetzung mit DeepL
verlieren Grafiken die Einstellungen für Inhalt, Position, Größe.
Das möchte ich mit einem Makro beseitigen.
Denn in meinen Büchern gibt es mehr 250 Grafiken.
Ich stelle mir das so vor, dass ich auf das Bild klicke und kann dann aus einem Kontext,
oder neben dem Bild das Makro aufrufen.
Wer könnte so ein Makro erstellen.
Albert

[mikeleb]

Hallo,
so z. B. würde alle Bilder in der Datei bzgl. Inhalt, Position, Größe geschützt

Code: Alles auswählen

sub bild_schutz

	oDoc=ThisComponent
	oDraw=oDOc.Drawpage
	for i=0 to oDraw.Count-1
		oElement=oDraw(i)
		if oElement.supportsService("com.sun.star.text.T	extGraphicObject") then
			with oElement
				.PositionProtected=True
				.SizeProtected=True
				.ContentProtected=True
			end with
		end if
	next
	

end sub

oder, wenn es nur um das gerade ausgewählte Bild geht:

Code: Alles auswählen

sub bild_schutz2

	oDoc=ThisComponent
	oElement=oDoc.CurrentSelection
	if oElement.supportsService("com.sun.star.text.TextGraphicObject") then
		with oElement
			.PositionProtected=True
			.SizeProtected=True
			.ContentProtected=True
		end with
	end if

end sub

[Gast]

Hallo Mikeleb,
Code: Alles auswählen diese Version wäre es.
Ist das der Code für eine Bas?
Albert

[mikeleb]

Hallo,
ja, es ist ein StarBasic-Makro.