Excel - Deklarace

[Pavel123]

Dobrý den, můžete mi prosím někdo říct proč mi nefunguje kód2
když kód1 jedna funguje? Událost CommandButton1_Click() vždy
předchází události CommandButton2_Click().

Kód1, TextBox se jménem "MyTextBox" již existuje
CommandButton2_Click() funguje

Kód: Vybrat vše

Option Explicit
Dim MyObject As Object

Private Sub CommandButton1_Click()
    Dim str As String
    str = "MyTextBox"
   
    Set MyObject = ActiveSheet.OLEObjects(str).Object
    MyObject.Value = "Ahoj"
End Sub

Private Sub CommandButton2_Click()
    MsgBox MyObject.Value
End Sub


Kód2, TextBox se jménem "MyTextBox" vytvářím
CommandButton2_Click() nefunguje

Kód: Vybrat vše

Option Explicit
Dim MyObject As Object

Private Sub CommandButton1_Click()
    Dim str As String
    str = "MyTextBox"
   
    ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=96, Top:=12, Width:=95.25, Height:=17.25 _
        ).Name = str
   
    Set MyObject = ActiveSheet.OLEObjects(str).Object
    MyObject.Value = "Ahoj"
End Sub

Private Sub CommandButton2_Click()
    MsgBox MyObject.Value
End Sub


Jinými slovy, přestože v obou případech používám proměnnou MyObject
deklarovanou v sekci General a v obou případech ji nastavuji shodně
Set MyObject = ActiveSheet.OLEObjects(str).Object
Tak v kódu2 CommandButton2_Click() skončí hláškou
Object variable or With block variable not set
Moc dík za radu.
Pavel

[Reklama]

[cukista]

... a nemas tam nahodou chybu v tom prikazu, kdy TextBox vkladas, myslim ten konec...

Kód: Vybrat vše

    ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=96, Top:=12, Width:=95.25, Height:=17.25 _
        ).Name = str


nema to byt takhle?

Kód: Vybrat vše

Name:= str)


Ja jsem to nezkousel, jen mi to takhle prijde dost divne zapsane - metoda Add s parametry a za tim jeste jeji metoda...