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
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 völlig kostenloses und unverbindliches Angebot innerhalb weniger Stunden.
   Anfrage direkt per Online-Formular
oder per E-Mail an anfrage@excel-inside.de




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 völlig kostenloses und unverbindliches Angebot innerhalb weniger Stunden.
   Anfrage direkt per Online-Formular
oder per E-Mail an anfrage@excel-inside.de


Powerd and supported by Excel-InsideSolutions