Office-Fragen.de

Office-Fragen.de > Microsoft Office > PowerPoint > PowerPoint VBA
Normale Version: PowerPoint VBA
Sie sehen gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

felix

28.10.2019, 08:40
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 !!

Flotter Feger

29.11.2019, 11:07
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 
Sabina
Office-Fragen.de > Microsoft Office > PowerPoint > PowerPoint VBA