Hallo zusammen,
ich versuche Aktuell mir ein Makro zu basteln um mir die Arbeit zu erleichtern.
Folgender Sachverhalt liegt vor.
Ich habe eine Eingabemaske erstellt mit der ich in eine Tabelle Werte (Texte) eintrage.
Durch einen SVerweis wähle ich bestimmt Inhalte aus, welche ich dann in eine Powerpoint Vorlage integrieren möchte.
Aktuell scheitere ich an dem Übertragen in PP.
Meine Vorlage kann ich mit dem Button öffnen allerdings reich dann meine Kentnisse nicht mehr aus um die Werte zu übertragen.
Der Code sieht aktuell so aus:
Sub Schaltfläche4_Klicken()
Dim PowerPoint As Object
Set PowerPoint = CreateObject("Powerpoint.Application")
PowerPoint.Visible = True
PowerPoint.Presentations.Open ("file://srvditz1\HOME$\....\Desktop\....%20Steckbrief%20Testversion.potm.pptx")
End Sub
Mir ist klar das der Großteil des Codes fehlt. Ich habe schon mehrere Tutorials angeschaut und Codes versucht aber leider ohne Erfolg. Ich muss dazu sagen das ich relativ wenig Ahnung mit VBA habe.
Ich möchte jetzt aus meiner Excel Zelle G3, G4, G5, ... etc. in die passenden Bereiche der PP (Titel 1, Untertitel2, etc.) übertragen.
Kann mir jemand beim Code helfen?
Am bestenn soll noch eine Kopie der Vorlage verwendet werden und nicht das Original.
Danke und Gruß |