ich habe leichte Probleme mit Shapes. Wie kann ich einer Autoform einen Text hinzufügen (Makro)?
Meine Code jetzt lautet:
FormSheet.Shapes(FormSheet.Shapes.Count).Characters.Text = "Hallo"
Was ist da falsch?
Sub test()
Dim objText As OLEObject
For Each objText In formsheet.OLEObjects
If TypeName(objText.Object) = "TextBox" Then
objText.Object.Value = "Hallo"
End If
Next objText
End Sub
Gruß Tino