Excel
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
[[Pine-Moon]]
#Contents
* サンプル [#ddb8f7ae]
** マクロ [#t2d0f2be]
*** 不要なシェイプを削除する。 [#ebbfcf59]
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
終了行:
[[Pine-Moon]]
#Contents
* サンプル [#ddb8f7ae]
** マクロ [#t2d0f2be]
*** 不要なシェイプを削除する。 [#ebbfcf59]
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
ページ名: