Textbox durchsichtig

Forumthread: Textbox durchsichtig
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Textbox durchsichtig

04.04.2017 01:26:08

Andi

Hallo Leute,
bin relativ neu unterwegs mit vba und verbringe jetzt schon Stunden damit nach einer Lösung zu suchen um meine Textboxen in Powerpoint durchsichtig zu machen.
Bitte helft mir!
Jetzt gerade habe ich diesen Code.
Set myDocument = ActivePresentation.Slides(3)
With myDocument.Shapes _
.AddShape(msoShapeRectangle, 0, 200, 595, 30).TextFrame
.TextRange.Text = VorUndNachname
.TextRange.Font.Size = 24
.TextRange.Font.Name = "VorUndNachname"
.TextRange.Font.Bold = False
.TextRange.Font.Color.RGB = RGB(0, 0, 0)
.MarginBottom = 10
.MarginLeft = 10
.MarginRight = 10
.MarginTop = 10
End With
Vielen Dank

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dies ist ein...

04.04.2017 08:01:46

Case
Habe mal schnell...

04.04.2017 14:37:18

Case

Dies ist ein...

04.04.2017 08:01:46

Case

Hallo, :-)
... Excelforum. Schau mal hier vorbei: ;-)
PowerPoint Forum...
Microsoft PowerPoint...
Servus
Case

Habe mal schnell...

04.04.2017 14:37:18

Case

Hallo Andi, :-)
... in PP nachgeschaut: ;-)

Option Explicit
Sub Main()
Dim myDocument As Slide
Set myDocument = ActivePresentation.Slides(3)
With myDocument.Shapes.AddShape(msoShapeRectangle, 0, 200, 595, 30).TextFrame
.Parent.Line.Visible = msoFalse
' 0 ist nicht transparent 1 ist komplett transparent
.Parent.Fill.Transparency = 0.9
.TextRange.Text = "VorUndNachname"
.TextRange.Font.Size = 24
.TextRange.Font.Name = "Arial"
.TextRange.Font.Bold = False
.TextRange.Font.Color.RGB = RGB(0, 0, 0)
.MarginBottom = 10
.MarginLeft = 10
.MarginRight = 10
.MarginTop = 10
End With
Set myDocument = Nothing
End Sub

Servus
Case