|
Hallo und Guten Tag,
als VBA Anfänger versuche ich gerade in Powerpoint Textboxen, die sich auf jeder Folie befinden, mit einem Text zu beschreiben, welchen ich dynamisch (sich unregelmäßig ändernd) aus einer ExcelTabelle generiere zu füllen.
Aktuell habe ich das Problem, dass die TextBox mal durch den Script , beim Folienwechsel, gefüllt wird, mal nicht. Leider klappt das leeren der textbox mit dem Befehl (TextBox1 = " " bzw. TextBox1.Text = " " ) nicht.
Der Script funkioniert ansonsten - dies habe ich mit einer MsgBox getestet. Auch wird das Excel nicht korrekt geschlossen, sodass das Excel nicht mehr die Werte aktualsieren kann.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | Private Sub TextBox1_Change()
Dim k As String
Dim wb As excel.Workbook
Dim xlApp As excel.Application
TextBox1 = ""
Set xlApp = New excel.Application
xlApp.Visible = False
Set wb = xlApp.Workbooks.Open(FileName:="D:\Pfad\T_est1.xlsx")
k = wb.Worksheets(1).Cells(1, 1)
TextBox = k
wb.Close
xlApp.Quit
Set xlApp = Nothing
End Sub
|
Alternativ, wenn einfacher, kann ich mir auch vorstellen, dass ich Uhrzeitabhängig bestimmte Bilder an bestimmten Positionen einblenden lasse - wenn das einfacher sein sollte.
Vielen Dank schon mal für die Hilfe!
Vielen Grüße
Dominik
|