Anzeige
Archiv - Navigation
700to704
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
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro bei Löschen einer Grafik

Makro bei Löschen einer Grafik
28.11.2005 11:52:12
R.Schmitt
Mahlzeit ;-)
ich müßte ein Makro in Abhängigkeit davon starten,
ob der Anwender im betreffenden Blatt gerade eine
Grafik (Shape) gelöscht hat.
WorksheetChange Ereignis schön und gut - dieses
müßte aber zudem noch erkennen, daß ob es sich um
eine Änderung oder eben das Löschen einer Grafik
handelt.
Nur - wie krieg´ich raus, ob gerade eine Grafik
gelöscht wird oder nicht ?
Recht herzlichen Dank
R.Schmitt

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro bei Löschen einer Grafik
28.11.2005 11:55:47
Nepumuk
Hi,
eigentlich nur, indem du permanent überprüfst, ob sich die Anzahl der Shapes in der Tabelle geändert hat.
Gruß
Nepumuk

Aber klar doch........
28.11.2005 12:00:11
R.Schmitt
Hallo Nepumuk
und vielen Dank auch !
So werd´ich es wohl lösen können.
Hatte aber anscheinend zu weit "in
die falsche Richtung gedacht"
R.Schmitt
Nachgefragt !
28.11.2005 12:57:47
R.Schmitt
Hallo Nepumuk,
satt und voller Tatendrang habe ich gerade deine
Anregungen in die Tat umgesetzt, nur um erneut auf
etwas Merkwürdiges zu stoßen :
Kann es sein, daß der Shape Index der verbleibenden
Shapes beim löschen einer Grafik unverändert bleibt ?
Kurzes Beispiel :
In A1:A10 sind 10 Grafiken untereinander.
Nun sollen sich diese beim Löschen einer
aus ihrer Reihe sozusagen wieder von alleine
untereinander, ohne Leerzelle anordnen.
Hätte man mit activesheet.shapes(i) und zuweisen
der jeweiligen Adresse z.b.
activesheet.shapes(1).top = Range("K5").Top
schön lösen können.
Aber Pustekuchen
anscheinend behält Excel den Index bei, und
sortiert auch fleißig nämlich genau an den
falschen Ort (also mit Leerzeile)
Muß man den ListIndex updaten ?
**Misteriös**?
R.Schmitt
Anzeige
AW: Nachgefragt !
28.11.2005 13:09:19
Nepumuk
Hi,
Das kann ich nicht nachvollziehen. Ich hab's mal so getestet:
Public Sub test()
    Dim i As Integer
    For i = 1 To ActiveSheet.Shapes.Count
        ActiveSheet.Shapes(i).Select
        Stop
    Next
End Sub

Gruß
Nepumuk

Anzeige
AW: Nachgefragt !
28.11.2005 13:21:14
R.Schmitt
Vieleicht hilft dir ja mein Code weiter :
wenn ich das in range("f13") stehende Bild
also mit ListIndex 7 lösche, sortiert mir
mein Makro das in B13 stehende Bild munter
in B13 und das in j13 stehende nicht wie
erwartet in f13, sondern in j13. Daher meine
Vermutung mit dem List Index.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim alt, neu
alt = Range("b31").Value
neu = ActiveSheet.Shapes.Count
If alt < neu Then
Range("b31").Value = neu
Exit Sub
End If
If alt > neu Then
Range("b31").Value = neu
End If
If ActiveSheet.Shapes.Count = 6 Then
ActiveSheet.Shapes(6).Top = Range("b13").Top
End If
If ActiveSheet.Shapes.Count = 7 Then
ActiveSheet.Shapes(6).Top = Range("b13").Top
ActiveSheet.Shapes(7).Top = Range("f13").Top
End If
If ActiveSheet.Shapes.Count = 8 Then
ActiveSheet.Shapes(6).Top = Range("b13").Top
ActiveSheet.Shapes(7).Top = Range("f13").Top
ActiveSheet.Shapes(8).Top = Range("j13").Top
End If
End Sub

Anzeige
AW: Nachgefragt !
28.11.2005 13:29:19
Nepumuk
Hi,
da kann sich auch nichts ändern. B13 F13 und J13 liegen in einer Zeile. Da ist der Wert der Top - Eigenschaft bei allen identisch.
Gruß
Nepumuk

Aaahhhhh !! Ich geh´ nach Hause (Danke) o.T.
28.11.2005 13:48:54
R.Schmitt
:

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige