Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Powerpoint Excel Verknüpfung aufheben

Powerpoint Excel Verknüpfung aufheben
Frank
Hallo Zusammen!
Aus Excel heraus gelingt es mir eine verknüpfte Range in Powerpoint einzufügen. Das mache ich so:
ppApp.ActiveWindow.View.PasteSpecial DataType:=ppPasteDefault, link:=msoTrue
Ich kann die bestehende Verknüpfung auch von Excel aus aktualisieren:
ppApp.ActiveWindow.Selection.ShapeRange.LinkFormat.Update
Wie schaffe ich es die Verknüpfung (auch via VBA aus Excel heraus) aufzuheben?
Vielen Dank,
Frank

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Powerpoint Excel Verknüpfung aufheben
06.11.2010 12:25:27
fcs
Hallo Frank,
mit folgendem Makro werden im dem aktiven Slide der PP-Anwendung
die Links zu Excel-Objekten aufgebrochen. Vorraussetzung ist natürlich, dass ppApp entsprechend deklariert und gesetzt wurde. Die Fehlerbehandlung kannst du hier wahrscheinlich weglassen. 
Sub Links_entfernen1()
On Error GoTo Fehler
Dim sh As Object
For Each sh In ppApp.ActiveWindow.Selection.SlideRange.Shapes
If sh.Type = msoLinkedOLEObject Then
If InStr(1, sh.OLEFormat.ProgID, "Excel.Sheet") > 0 _
Or InStr(1, sh.OLEFormat.ProgID, "Excel.Chart") > 0 Then
sh.LinkFormat.BreakLink
End If
End If
Next
'am Ende der Sub
Fehler:
Select Case Err.Number
Case 0
Case Else
MsgBox "Fehler-Nr. " & Err.Number & vbLf & Err.Description
End Select
End Sub

Ist das Diagramm in PP zum Zeitpunkt der Makroausführung selektiert, dann geht auch folgende Kurzversion. 
  On Error Resume Next
ppApp.ActiveWindow.Selection.ShapeRange.LinkFormat.BreakLink

Gruß
Franz
Anzeige

45 Forumthreads zu ähnlichen Themen

per VBA Excel Chart mit Verknüpfung in Powerpoint
Frank

Guten Morgen zusammen!
Wie kann ich per VBA eine Excel-Range (mit dem Namen "TEST") in eine bestehende Powerpointpräsentation namens "MASTER.ppt" einfügen? Das einfügen soll als Verknüpfung stattfinden.
Im Anschluß möchte ich dann aus Excel heraus ein in der "MASTER.ppt" bestehendes Mak...
04.11.2010 22:50:54
Thread-ID: 1185141
2 Beiträge
Anzeige
Verknüpfung Excel in Powerpoint verzerrt
Marina

Hallo zusammen,
ich habe ein Problem wenn ich Exceldateien in Powerpoint als Verknüpfung einfüge. Leider habe ich bisher online nirgends eine Lösung gefunden, ich hoffe jemand kann mir in diesem Forum weiterhelfen.
Zum Problem: Ich habe eine Exceldatei mit Pivotspalten, die sich auch b...
11.04.2017 17:27:39
Thread-ID: 1552378
3 Beiträge
Betrifft: AW: Verknüpfung Excel in Powerpoint verz
Marina

@ Luschi,
leider war es mir nicht möglich auf deine Antwort wieder zu antworten, vielleicht weil meine Anfrage zu alt ist? Ich habe zum ersten Mal etwas hier gepostet und gedacht ich erhalte eine E-Mail wenn jemand antwortet, deshalb habe ich deine Antwort leider zu spät gelesen.
Zu dei...
02.05.2017 16:53:34
Thread-ID: 1555845
6 Beiträge
Anzeige
Powerpoint Verknüpfung ändern (Laufzeitfehler 5)
Roland

Hallo zusammen,
dies hier ist mein erster Beitrag, also bitte ich um Nachsicht bezüglich auftretenden Missverständnissen. Nun zu meinem Problem:
Ich bin dabei, eine Präsentation zu automatisieren, die Verknüpfungen zu einer Excel enthält. Präsentation und Excel befinden sich im selben...
16.08.2018 08:36:52
Thread-ID: 1639745
4 Beiträge
alle Hyperlinks in Datei entfernen
Micha.hal
Hallo Excelperten,
kann man alle Hyperlinks, die in den Tabellenblättern einer Datei zugewiesen sind, schnell entfernen, ohne jeden einzeln anfassen zu müssen?
Danke für die Hilfe.
Micha
17.07.2003 10:03:55
Thread-ID: 282055
2 Beiträge
Alle Hyperlinks entfernen?
Ralf
Alle Hyperlinks entfernen?
Wie entferne ich alle Hyperlinks auf einem Tabellenblatt gleichzeitig?
Helft mir ich werde noch Wahnsinnig!!!!!
Dank im Voraus
03.09.2003 20:55:51
Thread-ID: 304429
7 Beiträge
Datei lässt sich nicht öffnen
einfachf

Hallo Zusammen ich schreibe gerade an einem Macro.
Dazu soll aus einer bestehenden datei eine andere Datei geöffnet werden.
Leider funzt das nicht und ich weiß nicht warum.
Hier mein Code.
Dim EX As Excel.Application
Dim WB As Workbook
Dim WS As Worksheet
Set EX = Cr...
06.08.2009 12:12:10
Thread-ID: 1094009
3 Beiträge
Datei lässt sich nicht öffnen
Ernst

Hallo Forum
Habe eine Datei abgespeichert, so wie ich es immer mache, lässt sich aber jetzt nicht mehr öffnen.
Wie kann ich die Datei öffnen?
Bitte um Hilfe
mfg
Ernst Dunkel
04.01.2010 13:35:12
Thread-ID: 1127045
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
2
5
6
3
1
6
2
4
5
3
2
1
4
11
2
4
11
8
9
7
5
1
1