Problem mit OLE-Object

03/03/2008 - 00:18 von Kay Gruhl | Report spam
Hallo

Ich beschàftige mich erst seit ein paar Tagen mit VBA und bin nun auf ein
Problem gestoßen, welches ich nicht verstehe.

Unten ist nur der für das bestehende Problem relevante Code des ganzen
Projekts aufgeführt. Ziel ist eine fehlerfreie Abarbeitung des Codes,
welcher innerhalb von Macro1 steht (natürlich ohne die Kommentarzeichen).
Ich bekomme aber den Laufzeitfehler 438 (Objekt unterstützt diese
Eigenschaft oder Methode nicht).

Wenn ich den Code auf 2 Makros aufteile, erhalte ich das gewünschte
Ergebnis.

Wie bekomme ich das in einem Stück hin?


Sub Makro1()
ActiveSheet.OLEObjects.Add(ClassType:="BarcodeWiz.BarcodeWiz.1", _
Link:=False, DisplayAsIcon:=False).Select
ActiveSheet.OLEObjects("BarCodeWiz1").Height = 57
ActiveSheet.OLEObjects("BarCodeWiz1").Width = 144
ActiveSheet.OLEObjects("BarCodeWiz1").LinkedCell = ActiveCell.Address
'ActiveSheet.BarCodeWiz1.StretchBarcodeText = True
'ActiveSheet.BarCodeWiz1.Symbology = 4
'ActiveSheet.BarCodeWiz1.BarcodeHeight = 800
'ActiveSheet.BarCodeWiz1.NarrowBarWidth = 38
End Sub


Sub Makro2()
ActiveSheet.BarCodeWiz1.StretchBarcodeText = True
ActiveSheet.BarCodeWiz1.Symbology = 4
ActiveSheet.BarCodeWiz1.BarcodeHeight = 800
ActiveSheet.BarCodeWiz1.NarrowBarWidth = 38
End Sub


Kay
 

Lesen sie die antworten

#1 Stefan Anderl
03/03/2008 - 16:16 | Warnen spam
"Kay Gruhl" wrote:

Hallo

Ich beschàftige mich erst seit ein paar Tagen mit VBA und bin nun auf ein
Problem gestoßen, welches ich nicht verstehe.

Unten ist nur der für das bestehende Problem relevante Code des ganzen
Projekts aufgeführt. Ziel ist eine fehlerfreie Abarbeitung des Codes,
welcher innerhalb von Macro1 steht (natürlich ohne die Kommentarzeichen).
Ich bekomme aber den Laufzeitfehler 438 (Objekt unterstützt diese
Eigenschaft oder Methode nicht).

Wenn ich den Code auf 2 Makros aufteile, erhalte ich das gewünschte
Ergebnis.

Wie bekomme ich das in einem Stück hin?


Vielleicht so? :

Sub Makro1()
ActiveSheet.OLEObjects.Add(ClassType:="BarcodeWiz.BarcodeWiz.1", _
Link:=False, DisplayAsIcon:=False).Select
ActiveSheet.OLEObjects("BarCodeWiz1").Height = 57
ActiveSheet.OLEObjects("BarCodeWiz1").Width = 144
ActiveSheet.OLEObjects("BarCodeWiz1").LinkedCell = ActiveCell.Address

ActiveSheet.OLEObjects("BarCodeWiz1").StretchBarcodeText = True
ActiveSheet.OLEObjects("BarCodeWiz1").Symbology = 4
ActiveSheet.OLEObjects("BarCodeWiz1").BarcodeHeight = 800
ActiveSheet.OLEObjects("BarCodeWiz1").NarrowBarWidth = 38
end sub


Stefan

Ähnliche fragen