Office: Textfeld / Box per VBA erstellen und formatieren

XX5198 · 20. März 2018

Hallo zusammen,

ich möchte per VBA an einer belibigen Stelle im Word-Dokument ein Textfeld erstellen und formatieren.

Ersters habe ich schon hinbekommen, jedoch stehe ich beim Formatieren auf dem Schlauch. Ich möchte gerne Farbe und Dicke des Rahmen der Box anpassen.

Mein Code sieht im Moment so aus:

Code:

Sub TestAddTextfeld()
Call AddTextfeld("Test")
End Sub
Sub AddTextfeld(strText As String)
' Fügt ein Textfeld in das Dokument hinzu

Dim shTbox As Shape
Dim intVertikal As Integer

' Vertikale Position ermitteln:
intVertikal = Selection.Range.Information(wdVerticalPositionRelativeToPage)

' Textfeld einfügen:
Set shTbox = ActiveDocument.Shapes.AddTextbox( _
Orientation:=msoTextOrientationHorizontal, _
Left:=600, _
top:=intVertikal, _
Width:=200, _
Height:=200)

With shTbox.TextFrame.TextRange
.Text = strText ' Text schreiben
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wäre es außerdem möglich das Feld so zu erstellen, dass es sich automatisch von der Höhe her an den Inhalt anpasst?

Danke schon mal.

Grüße
Andreas

:)

Gerhard H · 22. März 2018

Hallo Andreas,

ein paar Beispiele:
Code:

With shTbox
.TextFrame.TextRange.Text = strText ' Text schreiben
.TextFrame.AutoSize = True 'Größenanpassung
.Fill.ForeColor = RGB(250, 0, 0) 'Füllfarbe
.Line.ForeColor = RGB(0, 250, 0) 'Linienfarbe
.Line.Weight = 6 'Rahmenstärke
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

XX5198 · 22. März 2018

Super, danke *Smilie

Office: Textfeld / Box per VBA erstellen und formatieren

Textfeld / Box per VBA erstellen und formatieren

Textfeld / Box per VBA erstellen und formatieren

Textfeld / Box per VBA erstellen und formatieren - Similar Threads - Textfeld Box VBA

Formularsteuerelement Textfeld: Selbe Formatierung wie verlinkte Zelle?

Zwischen Textfeldern mit Tabulator Taste wechseln

Textfeld Powerpoint Ränder

Inhalt eines Hyperlink Feldes in ein Textfeld kopieren

Textfelder verschieben

Schriftart im Formular

Kommentar Popup entfernen