Powerpoint Excel Verknüpfung aufheben Makro / VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub BreakAllExcelLinks() 'PURPOSE: Break any external links in your PowerPoint presentation 'SOURCE: www.TheSpreadsheetGuru.com/the-code-vault Dim shp As Shape Dim sld As Slide 'Loop Through Each Slide in ActivePresentation For Each sld In ActivePresentation.Slides For Each shp In sld.Shapes On Error Resume Next shp.LinkFormat.BreakLink On Error GoTo 0 Next shp Next sld End Sub

Glaube mir, ich habe gesucht. Scheinbar nicht ganz richtig. ;)
Dennoch:
Vielen Dank für deine schnelle Hilfe! Klappt super.
Wenn ich noch eine Frage/Aufgabe stellen dürfte:
Die vielen Verknüpfungen haben ein und die selbe Datenquelle und ich möchte die Datenquelle für alle Verknüpfungen über ein Makro aktualisieren. Dafür habe ich auch schon etwas gefunden:
https://www.herber.de/forum/archiv/1176to1180/1179961_Excel_Powerpoint_Verknuepfung_Pfad_aendern.html
Allerdings ist die Laufzeit sehr lang, wenn es überhaupt durchläuft. Ich bin mir nicht sicher, ob dies nicht noch "schneller" gehen würde. Das Makro fürs Löschen der Verknüpfungen läuft sekundenschnell durch. Hat einer der Genies eine Vermutung bzw. eine Idee? :)
Ein schönes Wochenende und Danke für die Hilfe!

Der Code open ist tatsächlich nur dafür gut, bestehende Links zu aktualisieren. Da Du sie aber über die BreakLink-Methode rausgenommen, geht das natürlich nicht.
Versuch es mal mit nachfolgendem Code -> newFilePath entsprechend anpassen


Sub EditPowerPointLinks()
Dim newFilePath As String
Dim pptPresentation As Presentation
Dim pptSlide As Slide
Dim pptShape As Shape
'file path as a string
newFilePath = "String of\New File Path\Excel File 2.xlsx"
'Set the variable to the PowerPoint Presentation
Set pptPresentation = ActivePresentation
'Loop through each slide in the presentation
For Each pptSlide In pptPresentation.Slides
'Loop through each shape in each slide
For Each pptShape In pptSlide.Shapes
'Link the object or picture
pptShape.LinkFormat.SourceFullName = newFilePath
Next
Next
'Update the links
pptPresentation.UpdateLinks
End Sub

Beliebteste Forumthreads (12 Monate)

Powerpoint Excel Verknüpfung aufheben Makro / VBA

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Powerpoint Excel Verknüpfung aufheben Makro / VBA

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread