OpenOffice.info

Hallo,

[quote="DPunch"]Ein Bild (genauer gesagt ein TextGraphicObject) hat die Methode .getControl mangels des Interfaces XControlShape nicht[/quote]
Das verrät einem xray ganz schnell wenn man solch eine Fehlermeldung bekommt:
[quote="clag"]"Eigenschaft oder Methode nicht gefunden " [/quote]
und dann in der Schleife die Objekte mit xray untersucht. :wink:

Jürgen

Hallo DPunch,

so erklärt, wird das Verhalten direkt vorhersehbar
und Danke für den Code der das gleich ausbügelt :)

	For n = oDrawpage.Count-1 To 0 Step -1
		oThisShape = oDrawpage.getByIndex(n)
		If oThisShape.supportsService("com.sun.star.drawing.ControlShape") Then '<---------------
			If NOT isNull(oThisShape.Control) Then ' < Fehlermeldung Eigenschaft oder Methode nicht gefunden
				sControlName = oThisShape.Control.Name
				If IndexInArray(sControlName,aControlElementsToRemove) > -1 Then
					oDrawpage.remove(oThisShape)
				End If
			End If
		End If
	Next n

Aloha

[quote="clag"]Ist ein Bild im Dokument eingefügt gibt es die Fehlermeldung " Eigenschaft oder Methode nicht gefunden "
(...)kann mir bitte jemand sagen was da schiefläuft und vor allem wie man den Fehler vermeidet[/quote]

Ein Bild (genauer gesagt ein [url=http://api.openoffice.org/docs/common/ref/com/sun/star/text/TextGraphicObject.html]TextGraphicObject[/url]) hat die Methode .getControl mangels des Interfaces [url=http://api.openoffice.org/docs/common/ref/com/sun/star/drawing/XControlShape.html]XControlShape[/url] nicht, daher die Fehlermeldung.
Du brauchst aber lediglich eine Abfrage, ob das Element den Service [url=http://api.openoffice.org/docs/common/ref/com/sun/star/drawing/ControlShape.html]ControlShape[/url] unterstützt oder nicht. Tut es dies, steht die Methode .getControl auf jeden Fall zur Verfügung.

[code] For n = oDrawpage.Count-1 To 0 Step -1
oThisShape = oDrawpage.getByIndex(n)
If oThisShape.supportsService("com.sun.star.drawing.ControlShape") Then '<---------------
If NOT isNull(oThisShape.Control) Then ' < Fehlermeldung Eigenschaft oder Methode nicht gefunden
sControlName = oThisShape.Control.Name
If IndexInArray(sControlName,aControlElementsToRemove) > -1 Then
oDrawpage.remove(oThisShape)
End If
End If
End If
Next n[/code]

Hi Karo

das "dispose" scheint etwas forscher vorzugehen oder ?
mal sehen ob ich damit weiter komme

Danke

...
while thiscomponent.drawpage.hasElements
thiscomponent.drawpage.getbyindex(0).dispose
wend
...

Hallo
Für die Drawpage(s) gibts[color=#FF0000] .dispose()[/color] probiers mal damit.
[code]...
while thiscomponent.drawpage.hasElements
thiscomponent.drawpage.getbyindex(0).dispose
wend
...[/code]
oder so ähnlich (ungetestet)
Gruß Karo

Globalscope.BasicLibraries.loadLibrary("Tools")
'oDoc = StarDesktop.loadComponentFromURL(dateiurl, , 0, Array() )
'oDoc.lockcontrollers
	oDrawPage = oDoc.DrawPage
	oForm = oDrawPage.Forms.getByIndex(0)

	aControlElementsToRemove = Array("Schaltfläche 1","Schaltfläche 2","Schaltfläche 3",_
	"Schaltfläche 4","Schaltfläche 5","Schaltfläche 6","Schaltfläche 7",_
	"Schaltfläche 8","Schaltfläche 9")

	For i = 0 To UBound(aControlElementsToRemove)
	sControlName = aControlElementsToRemove(i)
		If oForm.hasByName(sControlName) then
		oForm.removeByName(sControlName)
		End If
	Next i

	For n = oDrawpage.Count-1 To 0 Step -1
		oThisShape = oDrawpage.getByIndex(n)

		If NOT isNull(oThisShape.Control) Then ' < Fehlermeldung Eigenschaft oder Methode nicht gefunden

		sControlName = oThisShape.Control.Name
			If IndexInArray(sControlName,aControlElementsToRemove) > -1 Then
			oDrawpage.remove(oThisShape)
			End If
		End If
	Next n

Hallo Kenner und Könner,

aus einem Dokument sollen Buttons/Schaltflächen entfernt werden, ich versuche es mit Code von DPunch den er [url=http://de.openoffice.info/viewtopic.php?f=18&t=42007#p154898][b]hier [/b][/url] einmal gezeigt hatte,
der funktioniert auch soweit, aber leider nur solange wie keine Bilder in dem Dokument vorhanden sind !

Ist ein Bild im Dokument eingefügt gibt es die Fehlermeldung " Eigenschaft oder Methode nicht gefunden "

[code]Globalscope.BasicLibraries.loadLibrary("Tools")
'oDoc = StarDesktop.loadComponentFromURL(dateiurl, , 0, Array() )
'oDoc.lockcontrollers
oDrawPage = oDoc.DrawPage
oForm = oDrawPage.Forms.getByIndex(0)

aControlElementsToRemove = Array("Schaltfläche 1","Schaltfläche 2","Schaltfläche 3",_
"Schaltfläche 4","Schaltfläche 5","Schaltfläche 6","Schaltfläche 7",_
"Schaltfläche 8","Schaltfläche 9")

For i = 0 To UBound(aControlElementsToRemove)
sControlName = aControlElementsToRemove(i)
If oForm.hasByName(sControlName) then
oForm.removeByName(sControlName)
End If
Next i

For n = oDrawpage.Count-1 To 0 Step -1
oThisShape = oDrawpage.getByIndex(n)

If NOT isNull(oThisShape.Control) Then ' < Fehlermeldung Eigenschaft oder Methode nicht gefunden

sControlName = oThisShape.Control.Name
If IndexInArray(sControlName,aControlElementsToRemove) > -1 Then
oDrawpage.remove(oThisShape)
End If
End If
Next n
[/code]

kann mir bitte jemand sagen was da schiefläuft und vor allem wie man den Fehler vermeidet

Danke für's lesen und ggf auch für's drüber nachdenken :)