Wert aus Zelle in VBA Code übernehmen
23.03.2019 22:07:20
Claudius
ich habe mir einen Code gebastelt in dem eine Powerpoint geöffnet wird. Aktuell Muss ich den Pfad zur Datei im Code einsetzen. Gäbe es der Anwenderfreundlichkeit wegen auch eine Möglichkeit den Pfad aus einer definierten Zelle auszulesen? Z.B. der Pfad wäre in Zelle A1.
Anbei mein Code:
Sub ChartToExcelV1()
Dim ppApp As Object
Dim ppFile As Object
Dim ppPres As String
Set ppApp = CreateObject("Powerpoint.Application")
With ppApp
.Visible = True 'powerpoint fenster sichtbar machen
.Presentations.Open Filename:="C:\Users\laudius\Desktop\test.pptx" 'HIER sollte der Link aus _
einer Zelle übernommen werden
.ActivePresentation.Slides(4).Select 'slide in der geöffneten Powerpoint wird gewählt
Sheets("Innovationsstrategie ").ChartObjects("Diagramm 28").Copy 'Sheet in der Excel wird gewä _
_
_
_
_
hlt und zu übertragendes Diagramm wird gewählt
With .ActiveWindow
.View.Paste 'gewähltes Diagramm wird in Powerpoint auf der gewählten slide eingefügt
.Selection.ShapeRange.Left = 440.6 'entfernung vom linken rand
.Selection.ShapeRange.Top = 133.45 'entfernung vom oberen rand
End With
End With
End Sub
Vielen Dank schon mal für eure Hilfe!