Excel VBA-Makro, um den Hyperlink jeder Form zu entfernen

Question

Ich habe eine Excel-Tabelle mit einer Form in jeder Zeile einer Spalte, mit mehr Formen, die im Laufe der Zeit zur Spalte hinzugefügt werden. Das Problem ist, einige Formen haben Hyperlinks und andere nicht. Ich möchte ein VBA-Makro schreiben, um jede Form in der Spalte zu durchlaufen und den Hyperlink der aktuellen Form zu entfernen, wenn es einen hat. Ich habe versucht, ein Makro aufzuzeichnen, in dem ich manuell den Hyperlink einer Form lösche und dann diese Aktion global anwende. Es gibt jedoch andere Formen auf dem Blatt, die Hyperlinks enthalten, so dass mein Makro nur auf diese bestimmte Spalte angewendet werden muss. Irgendwelche Ideen?

Answer 1

In diesem Beispiel werden die Hyperlinks aus den Formen in Spalte A gelöscht und die Spalte nach Bedarf angepasst.

Sub DeleteHyperlink() 
Dim shp As Shape 
Dim r As Range 

     Set r = Columns("A:A") 
     For Each shp In ActiveSheet.Shapes 
      If Not Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), r) Is Nothing Then 
       On Error Resume Next 
       If shp.Hyperlink.Address <> "" Then shp.Hyperlink.Delete 
      End If 
     Next shp 

    End Sub 

Answer 2

Versuchen Sie, das folgende Verfahren zu verwenden, um alle Hyperlinks wie einmal zu entfernen.