ExcelVBA: Shapes-Objekte aus einer Range entfernen

Computer: Software & Programmierung Office Software
1

Hallo!

Wie könnte man Buttons, Images, Combobox’s etc (Shapes) per VBA aus einer bestimmten Range entfernen?

Bedanke mich für jeden noch so winzigen Hinweis!

grüsse
catmad

2

Hilft das ?

Dim ws As Worksheet
Set ws = gExcelWB.Worksheets(„MAUS“)
For i = 1 To ws.Shapes.Count
If ws.Shapes(i).Name = „CommandButton1“ Then
ws.Shapes(i).Delete
Exit For
End If
Next i

3

Am Ende hab ich es doch hingekriegt…
Hi!

Jaa, fast. Ich hab es mit ein wenig knobeln versucht. Das ist das Resultat:

Public Function RemoveShape(Start As Object, ende As Object)
ActiveCell.Select

Dim n As Integer
n = 1

'Start und Endpunkt muss ausserhalb dieser Funktion bestimmt werden.
'Zum Beispiel so:
'Set Start = ActiveSheet.Cells.Find(„START“, LookIn:=xlValues, MatchCase:=True)
'Set Ende = Tabelle1.Cells.Find(„ENDE“, LookIn:=xlValues, MatchCase:=True)

On Error GoTo errorhandler
Do
With ActiveSheet.Shapes(n)
If .Top > Start.Top And .Left > Start.Left Then
If .Top [Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]