Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Shape Text hinzufügen (Makro)
10.03.2009 16:41:24
Florian
Hallo zusammen,
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?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Shape Text hinzufügen (Makro)
10.03.2009 16:53:52
Tino
Hallo,
z. Bsp. so

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

AW: Shape Text hinzufügen (Makro)
10.03.2009 17:02:50
Lesen
Wie kann ich einer Autoform einen Text hinzufügen (Makro)?
AW: Shape Text hinzufügen (Makro)
10.03.2009 17:08:35
Tino
Hallo,
hast Du keinen Namen, damit ich Dich ansprechen kann?
Dim ObjS As Shape
Set ObjS = formsheet.Shapes("Abgerundetes Rechteck 1")
ObjS.DrawingObject.Text = "Hallo"
Gruß Tino
Danke funktioniert oT;)
10.03.2009 18:20:10
Florian
--
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige