Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
PowerPoint VBA
#1
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 !!
Zitieren
#2
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
Zitieren


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste




Hinweis auf Angebot Excel-Inside - lang    Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden um dein Anliegen zu besprechen.
   Gerne erstellen wir auf dieser Basis ein Angebot.
   Sende deine Anfrage einfach
per E-Mail an anfrage@excel-inside.de


Powerd and supported by Excel-InsideSolutions