Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
440to444
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
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Shapes im Sheet

Shapes im Sheet
18.06.2004 10:41:41
Dieter
Hallo liebe ExcelFreunde,
im Moment stehe ich auf dem Schlauch, mein Problem:
wie kann ich per VBA feststellen, ob in einem bestimmten Sheet eines Workbooks ein oder mehrere Shapes vorhanden sind und wie deren Name ist.
Das Sheet kann sowohl Shapes enthalten die sichtbar und unsichtbar (visible = true oder false) sind. Auch besteht die Möglichkeit, das garkeine Shapes auf dem Sheet sind, auch diese Möglichkeit sollte mir das VBA mitteilen.
Vielen Dank für Eure Mühe und noch ein schönes Wochenende
Gruß Dieter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Shapes im Sheet
K.Rola
Hallo,
Option Explicit

Sub Shapes()
Dim sh As Object, c As Integer
For Each sh In ActiveSheet.Shapes
c = c + 1
MsgBox sh.Name
Next
MsgBox c & " Shapes vorhanden!"
End Sub

Gruß K.Rola
AW: Shapes im Sheet
Dieter
Hallo
vielen Dank, aber manchmal hat man wirklich ein Brett vorm Kopf
Gruß Dieter
AW: Shapes im Sheet
K.Rola
Hallo,
sei froh, Manche haben immer ein Brett vorm Kopf.
Gruß K.Rola
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige