Label einfügen und Caption auslesen

10/03/2008 - 21:27 von Kay Gruhl | Report spam
Hallo

Wenn ich in Word per Makro folgenden Code ausführe, wie kann ich danach
".Caption" auslesen?

Dim FaxLabel As Object

Set FaxLabel = _
Selection.InlineShapes.AddOLEControl(ClassType:="Forms.Label.1")
With FaxLabel.OLEFormat.Object
.Name = "Faxnummer"
.Caption = "12345"
End With

Oder anders gefragt. Wie kann ich sonst noch per Makro ein Label an der
aktuellen Cursorpsition in ein Worddokument einfügen.

Kay
 

Lesen sie die antworten

#1 Kay Gruhl
10/03/2008 - 23:27 | Warnen spam
On Mon, 10 Mar 2008 21:27:25 +0100, in microsoft.public.de.vb Kay Gruhl
wrote:

Wenn ich in Word per Makro folgenden Code ausführe, wie kann ich danach
".Caption" auslesen?

Dim FaxLabel As Object

Set FaxLabel = _
Selection.InlineShapes.AddOLEControl(ClassType:="Forms.Label.1")
With FaxLabel.OLEFormat.Object
.Name = "Faxnummer"
.Caption = "12345"
End With

Oder anders gefragt. Wie kann ich sonst noch per Makro ein Label an der
aktuellen Cursorpsition in ein Worddokument einfügen.




Hat sich erledigt. Ich sah wohl den Wald vor lauter Bàumen nicht mehr.

Dafür hab ich nun ein anderes Problem. Wie kann ich dieses per VBA Label
wieder entfernen?

Kay

Ähnliche fragen