Pine-Moon

サンプル

マクロ

不要なシェイプを削除する。

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

トップ   編集 凍結解除 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2007-05-25 (金) 16:33:03 (4286d)