PowerPoint VBA

[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