Grafiken im Dokument zählen
03.02.2016 18:48:42
Elmar
ich habe eine sehr umfangreiche Tabelle mit Benchmark-Ergebnissen mit ca. 30 Spalten und ca. 1500 Zeilen. Jedes Benchmark Ergebnis ist sowohl als Textergebnis zum weiterberechnen enthalten, aber auch als .png-screenshot.
Ich würde gerne wissen, wieviele Grafiken im Sheet sind.
Den Code (hier gefunden: http://www.excel-center.de/foren/read.php?2,108191,108194#msg-108194)
Function GrafikCount(rngBereich As Range) As Long
Dim shp As Shape
Dim lngCounter As Long
If Not ActiveSheet.Shapes Is Nothing Then
For Each shp In ActiveSheet.Shapes
If Not Intersect(shp.TopLeftCell, rngBereich) Is Nothing Then
lngCounter = lngCounter + 1
End If
Next shp
End If
GrafikCount = lngCounter
End Function
bringt als Ergebnis: #Wert!
Was machte ich falsch?
Gibts da sinnvolle Obergrenzen für die Anzahl von Grafiken in Excel? Ich bin gerade bei 16 MB Dateigröße und manchmal schmiert mir Excel einfach so ab.
Vielen Dank fürs Lesen, Eindenken und Antworten - ♥-liche Grüße Elmar