サンプル †マクロ †不要なシェイプを削除する。 †Public Sub DelShapes() On Error Resume Next Dim objShape As Object If ActiveSheet.Shapes.Count > 0 Then For Each objShape In ActiveSheet.Shapes If objShape.Height = 0 Then If objShape.Width = 0 Then objShape.Delete End If End If Next End If Set objShape = Nothing End Sub |