Shape Objekte

• Shape Objekte von Wolfgang vom 21.11.2003 21:45:36
  • AW: Shape Objekte - von mischa richter am 21.11.2003 22:02:28
    • AW: Shape Objekte - von wolfgang am 21.11.2003 22:21:44
      • AW: Shape Objekte - von Nepumuk am 22.11.2003 11:00:43

Betrifft: Shape Objekte
von: Wolfgang
Geschrieben am: 21.11.2003 21:45:36
Hallo Excelfreunde
Gibt es eine Möglichkeit Shape Objekte zu zählen?
als beispiel
Ich habe eine unbestimmte Anzahl Objekte mit dem Namen "Rechteck1","Kreis1",
"Elipse1" im Aktiven Arbeitsblatt

Ich würde nun gerne die Anzahl der einzelnen Objekte zählen wollen

Ist sowas überhaubt möglich?
gruß Wolfgang

Betrifft: AW: Shape Objekte
von: mischa richter
Geschrieben am: 21.11.2003 22:02:28
naja, ein einstieg in das thema mit vba könnte so gehen:

Sub shapes1()
Dim ShObj As Object
MsgBox "Insgesamt Shapes: " & ActiveSheet.Shapes.Count
For Each ShObj In ActiveSheet.Shapes
MsgBox ShObj.Name & vbCrLf & ShObj.Type, vbExclamation + vbOKOnly, ""
Next
End Sub

müsste halt verfeinert werden
mischa

Betrifft: AW: Shape Objekte
von: wolfgang
Geschrieben am: 21.11.2003 22:21:44
Hallo mischa
danke
der erste ansatz hat geklappt
mal sehen ob ich so weiterkomme
gruß wolfgang

Betrifft: AW: Shape Objekte
von: Nepumuk
Geschrieben am: 22.11.2003 11:00:43
Hallo Wolfgang,
die verschiedenen Objekte habe eindeutige Nummern. Beispiel:

Option Explicit
Sub shapes1()
Dim myShape As Shape, intRechteck As Integer, intEllipse As Integer
For Each myShape In ActiveSheet.Shapes
Select Case myShape.AutoShapeType
Case 1
intRechteck = intRechteck + 1
Case 9
intEllipse = intEllipse + 1
End Select
Next
End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk

Excel-Beispiele zum Thema " Shape Objekte"
UserForm-ComboBoxes als Collection-Objekte ansprechen