Hallo,
ich füge auf Knopfdruck (Button TEXTFELD) per VBA ein Textfeld in meinen Foliensatz ein:
Private Sub cmd_TEXTFELD_Click()
' Abfrage Titel
A_Titel = InputBox("Aufgabentitel: ")
' Auf aktueller Folie per Textfeld einfuegen
Set mydocument = ActivePresentation.Slides(1)
With mydocument.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame
.TextRange.Text = "Titel: " & A_Titel
.TextRange.Font.Size = 8
.MarginBottom = 10
.MarginLeft = 10
.MarginRight = 10
.MarginTop = 10
.WordWrap = msoTrue
End With
End Sub
Das funktioniert auch problemlos. Aber...wie kann ich folgende Dinge tun:
-
die Schriftfarbe rot machen
-
die Schrift fett machen
-
den Hintergrund weiß und nicht transparent
-
einen roten Rahmen um die Form
Hier scheitere ich, weil ich blutiger Anfänger in PowerPoint-vba bin. Vielleicht kann jemand helfen...
Grüße und mein Dank vorab an alle, welche mich bei der Lösung des Problems unterstützen! Ich weiß das zu schätzen!
Gruß
Magico777
|