Guten Morgen zusammen,
ich ziehe eine PowerPoint-Präsentation in mein Programm und speichere sie in der Variable objPPT. Diese PowerPoint soll dann u.a. "Eigenschaft" eines Objektes (classObject) der Klasse className sein.
Dim col As Collection
Dim objPPT As Object
Dim classObject As className
Set col = New Collection
Set objPPT = ActiveSheet.OLEObjects.Add( ... )
Set classObject = New className
With classObject
.pic = objPPT
End With
col.Add (item)
Klassenmodul:
Option Explicit
Public pic As Object
Es wird der Laufzeitfehler '91': "Objektvariable oder With-Blockvariable nicht festgelegt." geworfen.
Wieso ist das so? Sowohl "pic" als auch "objPPT" sind doch vom gleichen Typ "Object". Hat jemand eine Lösung? Danke!