Excel ComboBox Auswhal - Hyperlink Powerpoint
30.07.2018 13:35:04
Silvana
ich hoffe ihr könnt mir helfen und zwar möchte ich mit der Auswahl aus der Combobox (Excel) ein Hyperlink in PPT aber auf der richtigen Folien gelangen.
mein Code sieht bis jetzt so aus (bis jetzt springt er mir immer auf der Folie 10 unabhängig von meiner Auswahl) ich denke das könnte man mit einer Schleife oder Select case lösen da die Liste von der Combobox mit 26 "Namen" ausgefüllt ist ... die Foliennr. könnte ich auch "hart" codieren da sie immer an der Stelle bleiben. Ich hoffe ich habe mich verständlich ausgedruckt und ihr mir weiter helfen könnt...)
Private Sub Anzeigen_Click()
'die ausgewählte kpi in powerpoint anzeigen
Dim objPowerPoint As Object
Dim strLink As String
Dim intFolienZahl As Integer
intFolienZahl = 10
strLink = "linkPPT"
Set objPowerPoint = CreateObject("Powerpoint.Application")
With objPowerPoint
.Visible = True
.Presentations.Open Filename:=strLink
.ActiveWindow.View.GotoSlide (intFolienZahl)
End With
Set objPowerPoint = Nothing
End Sub
Private Sub worksheet_followHyperLink(ByVal Target As Hyperlink)
If Target.Parent.Address = Me.KPI Then
Call Anzeigen_Click
End If
End Sub
gruß Bibbi