+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: PowerPoint (https://office-fragen.de/forum-6.html)
+--- Thema: PowerPoint VBA (/thread-3871.html)
PowerPoint VBA - felix - 28.10.2019
Hallo zusammen,
ich möchte PowerPoint "Formen" automatisch mit Bildern füllen.
Das funktioniert soweit auch für ein "festes" Bild:
ActivePresentation.Slides.Item(10).Shapes.Item("1").Fill.UserPicture "C:\Users\Bilder\Bild1.png"
Ich möchte das allerdings dynamisch gestalten, d.h. dass das Bild bzw. die Füllung der Form jeweils von dem Text, der in einem anderen Textfeld steht abhängig ist. Wenn dieser Text sich dann ändert soll sich auch das Bild entsprechend automatisch ändern.
Vielleicht kann mir jemand weiterhelfen.
Vielen Dank schon einmal !!
RE: PowerPoint VBA - Flotter Feger - 29.11.2019
Hallo,
Dazu brauchst du ein TextFeld (ActiveX Steuerelement).
Da legst du dann das TextBox1_Change - Event an und legst die Bedingungen fest, wann welches Bild gezeigt werden soll.
PHP-Code:
Private Sub TextBox1_Change()
If Len(TextBox1.Text) = 13 Then
If TextBox1.Text = "4040849539991" Then
ActivePresentation.Slides.Item(10).Shapes.Item("1").Fill.UserPicture "C:\Users\Bilder\Bild1.png"
ElseIf TextBox1.Text = "4040849539992" Then
ActivePresentation.Slides.Item(10).Shapes.Item("1").Fill.UserPicture "C:\Users\Bilder\Bild2.png"
ElseIf TextBox1.Text = "4040849539993" Then
ActivePresentation.Slides.Item(10).Shapes.Item("1").Fill.UserPicture "C:\Users\Bilder\Bild3.png"
End If
End If
End Sub