Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1080to1084
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
1080to1084
1080to1084
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Macro entfernen

Macro entfernen
16.06.2009 10:14:35
Beni
Guten Morgen zusammen
Wenn einem Objekt ein Macro zugewiesen ist kann ich dass mit .Shapes(.Shapes.Count).OnAction = "" entfernen. Sobald ich mehrere Objekte Gruppiere haut das nicht.
Weiss jemand eine Lösung?
Besten Dank und einen schönen Tag

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Makrozuweisung für Shapes entfernen
16.06.2009 10:47:59
NoNet
Hallo Beni,
in einer Schleife mit Objektvariable funktioniert das auch für gruppierte Shapes :
VBA-Code:
Sub ObjektMakroEntfernen()
    'Entfernt verknüpftes Makro für alle shapes des aktiven Tabellenblattes
    Dim sh As Shape
    For Each sh In ActiveSheet.Shapes
        sh.OnAction = ""
    Next
End Sub
Gruß, NoNet
AW: Makrozuweisung für Shapes entfernen
Beni

Vielen Dank NoNet
Irgendwie will es aber nicht wirklich. Habe Beispieldatei angehängt.
Wenn Du noch Zeit hast wäre schön wenn Du mal reinschaust.
Vorerst vielen Dank.
https://www.herber.de/bbs/user/62462.xls
AW: Makrozuweisung für Shapes entfernen
Anton

Hallo Beni,
so vllt:

Sub ObjektMakroEntfernen()
 'Entfernt verknüpftes Makro für alle shapes des aktiven Tabellenblattes
  Dim sh As Shape  
  Dim gefunden As Boolean  
  Do
    gefunden = False
    For Each sh In ActiveSheet.Shapes  
      If InStr(1, sh.Name, "Group") <> 0 Then  
       'Gruppierung aufheben
        sh.Ungroup
        gefunden = True
      End If  
    Next
    If gefunden = False Then Exit Do    
  Loop
  For Each sh In ActiveSheet.Shapes  
    sh.OnAction = ""
  Next
End Sub  

mfg Anton
Vielen Dank Anton
Beni

Merci
Anzeige
AW: Makrozuweisung für Shapes entfernen
16.06.2009 11:35:21
Beni
Vielen Dank NoNet
Irgendwie will es aber nicht wirklich. Habe Beispieldatei angehängt.
Wenn Du noch Zeit hast wäre schön wenn Du mal reinschaust.
Vorerst vielen Dank.
https://www.herber.de/bbs/user/62462.xls
AW: Makrozuweisung für Shapes entfernen
16.06.2009 22:31:23
Anton
Hallo Beni,
so vllt:

Sub ObjektMakroEntfernen()
 'Entfernt verknüpftes Makro für alle shapes des aktiven Tabellenblattes
  Dim sh As Shape  
  Dim gefunden As Boolean  
  Do
    gefunden = False
    For Each sh In ActiveSheet.Shapes  
      If InStr(1, sh.Name, "Group") <> 0 Then  
       'Gruppierung aufheben
        sh.Ungroup
        gefunden = True
      End If  
    Next
    If gefunden = False Then Exit Do    
  Loop
  For Each sh In ActiveSheet.Shapes  
    sh.OnAction = ""
  Next
End Sub  

mfg Anton
Anzeige
Vielen Dank Anton
21.06.2009 08:21:30
Beni
Merci

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige