Objektvariable nicht belegt, Fehler kann aber nicht sein!?

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Objektvariable nicht belegt, Fehler kann aber nicht sein!?

Re: Objektvariable nicht belegt, Fehler kann aber nicht sein

von MikeRo » Di, 06.09.2011 14:36

komma4 hat geschrieben:
MikeRo hat geschrieben:

Code: Alles auswählen

Point.x = aPos.x - 2700
Du hast die Variable Point zwar definiert, aber nicht deklariert.
Deshalb ist sie vom Typ VARIANT - ein .x oder .y gibt es nicht

Du willst wahrscheinlich

Code: Alles auswählen

Public oPoint As New com.sun.star.awt.Point
Danke nun geht es. :-)

Re: Objektvariable nicht belegt, Fehler kann aber nicht sein

von komma4 » Di, 06.09.2011 14:20

MikeRo hat geschrieben:

Code: Alles auswählen

Point.x = aPos.x - 2700
Du hast die Variable Point zwar definiert, aber nicht deklariert.
Deshalb ist sie vom Typ VARIANT - ein .x oder .y gibt es nicht

Du willst wahrscheinlich

Code: Alles auswählen

Public oPoint As New com.sun.star.awt.Point

Objektvariable nicht belegt, Fehler kann aber nicht sein!?

von MikeRo » Di, 06.09.2011 13:54

Hallo, ich habe einen Fehler den ich nicht nachvollziehen kann.
Mir diesem Makro füge ich an eine bestimmte Stelle in der Tabelle ein Bild ein.
Aber ich bekomme an der Stelle "Point.x = aPos.x - 2700" immer den Fehler "Basic Laufzeitfehler, Variable nicht belegt."

Code: Alles auswählen

Public Point
Sub GrafikEinfuegen
rem----------------------------------------------------------------------------------------------------------S&W Logo

mycell = oSheet.getCellByPosition(Letztespalte,0)
oColumn = mycell.getColumns.getByIndex(0).getName()
cellname = oColumn
cellname = cellname & 1

oCell = oDoc.sheets.getByName("Standortliste").getCellRangeByName(cellname)
aPos = oCell.Position
MsgBox aPos.x 'Zeigt 33973 Ist zum Testen
MsgBox aPos.y 'Zeigt 0 Ist zum Testen
Point.x =  aPos.x-2700
Point.y =  aPos.y
Size.Width = 5450
Size.Height = 2000
Page = oDoc.drawPages(0)
GraphicObjectShape = oDoc.createInstance("com.sun.star.drawing.GraphicObjectShape")
GraphicObjectShape.Size = Size
GraphicObjectShape.Position = Point

  	If OS = 1 Then 'Windows
  	sURL = "file:///Z:/Programme/Vorlagen für Makros/Angebote/Bilder/Klein/SW.jpg"
	GraphicObjectShape.GraphicURL = sURL
   	ElseIf OS = 4 Then 'Unix
   	sURL = "file:///media/transfer/Programme/Vorlagen für Makros/Angebote/Bilder/Klein/SW.jpg"
   	GraphicObjectShape.GraphicURL = sURL
   	End IF

oBitmaps = oDoc.createInstance("com.sun.star.drawing.BitmapTable")
sInternalPicName = "myPic"
For i = 0 To 200
   sInternalPicName = "myPic" & i
   If NOT oBitmaps.hasByName(sInternalPicName) Then Exit For
Next i
oBitmaps.insertByName(sInternalPicName, sURL )
If NOT oBitmaps.hasByName(sInternalPicName) Then
  MsgBox("Ausgewählte Datei konnte nicht als Grafik eingefügt werden",48,"Fehler")
  Exit Sub
End If
sURL = oBitmaps.getByName(sInternalPicName)   	

GraphicObjectShape.Name = "S&W"
GraphicObjectShape.Title = "S&W"
GraphicObjectShape.GraphicColorMode = com.sun.star.drawing.ColorMode.STANDARD
Page.add(GraphicObjectShape)
GraphicObjectShape.GraphicURL = sURL

rem----------------------------------------------------------------------------------------------------------Ende
End Sub

Nach oben