Prüfen welche Grafiken noch nicht gelöscht
Lombe
ich habe via VBA am Bildschirm 10x10 Grafiken/Kreise (Shapes) erstellt, insgesamt also 100 Kreise am Bildschirm.
Jeder Kreis hat auch einen eigenen Namen (mit shape.name).
Der erste Kreis links oben hat dabei den Namen "01 01" der 2. Kreis in der Reihe "01 02" und der letzte Kreis, rechts unten "10 10".
Somit hab ich eine art x-y Bezug zu jedem Kreis.
Jetzt werden willkürlich Kreise gelöscht, ganz normal über Kreis anklicken und "Entf" Taste drücken.
Ich möchte nun anschlißend via VBA ZÜGIG rausfinden welche Kreise sind noch am Bildschirm? Ich denke dabei an ein 2-dimensionales Array wo mal eine "1" reingeschrieben wird (quasi an der x-y-Pos.) falls der Kreis vorhanden ist oder eine "0" falls Kreis fehlt.
Ich komme hier nur mit einem Test mittels einer Select-Funktion weiter,
was weder funktioniert noch brauchbar scheint
Option Explicit
--------------------------------------------------
Private Sub Teste_welche_Kreise_noch_vorhanden()
Dim X As Byte
Dim Y As Byte
Dim Matrix(1 To 10, 1 To 10) As Byte
Dim Kreis_Name As String
For Y = 1 To 10
For X = 1 To 10
Kreis_Name = Right(Y + 100, 2) & " " & Right(100 + X, 2)
ActiveSheet.Shapes(Kreis_Name).Select 'Hier wird versucht den Kreis zu selektieren, falls _
keiner da ist soll in die Matrix eine "0"
On Error GoTo Fehler:
Matrix(X, Y) = 1
Fehler:
Matrix(X, Y) = 0
Next X
Next Y
End Sub
Danke für jegliche Information.
Lombe
Anzeige