excel - Excel から行と画像を削除

Question

ワンクリックで Excel の列と画像を削除する必要があります。画像を削除できるマクロがありますが、列は削除されません。

Sub RemoveDrawingObjects()

 'Removes any drawing / chart / shapes / ocx control objects from the active worksheet.

Dim iCount As Integer
Dim Embedded_Objects As Integer

Embedded_Objects = ActiveSheet.Shapes.Count

For iCount = Embedded_Objects To 1 Step -1
    ActiveSheet.Shapes(iCount).Delete
Next iCount

End Sub

これは、画像を削除するために使用しているコードであり、うまく機能します。強調表示された列を削除するにはどうすればよいですか。

アドバイスやヒントは大歓迎です。

私のヒントは、画像を削除してから列を削除することでしたが、ワンクリックですべてを望んでいます。