OpenOffice.info

Hallo,
ja, es ist ein StarBasic-Makro.

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

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

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

Hallo,
so z. B. würde alle Bilder in der Datei bzgl. Inhalt, Position, Größe geschützt
[code]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[/code]
oder, wenn es nur um das gerade ausgewählte Bild geht:
[code]
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[/code]

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