PowerPoint VBA

[felix]

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]

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