小山産業株式会社 / 安全施設と看板

兵庫県の北播磨・丹波地域を中心に交通安全施設・フェンス・安全用品・看板の販売・設置施工を、看板については製作も行っています。営業活動とは関係の無いことも雑記帳として掲載しております。一度、弊社のホームページにお立ち寄りください。
0795-22-4202
  • メニュー

    • トップページ

    • お知らせ

    • 施工・納入実績 写真一覧

    • 商品・サービス

    • 雑記帳

    • 会社情報

    • FaceBook

    • お問い合わせ

    • 非公開Contents

雑記帳

Excel

指定したセルの範囲内の図を削除

Sub 指定したセルの範囲内の図を削除()

         Dim lngLeft   As Long

        Dim lngTop    As Long

        Dim lngRight As Long

        Dim lngBottom As Long

        Dim objShape As Object

    ' セル範囲の座標取得

        pWS.Select

        With Range("A1:J3")

            lngTop = .Top

            lngLeft = .Left

            lngBottom = .Top + .Height

            lngRight = .Left + .Width

        End With

    ' アクティブシートの図形列挙

        For Each objShape In pWS.DrawingObjects

        ' 範囲内にあるかチェック

            With objShape

                If lngTop <= .Top And lngLeft <= .Left And _

                lngBottom >= .Top + .Height And lngRight >= .Left + .Width Then

                ' 範囲内にあれば削除

                .Delete

                End If

            End With

        Next

End Sub


  • トップページ
  • お知らせ
  • 施工・納入実績 写真一覧
  • 商品・サービス
  • 雑記帳
    • 商品・サービス情報:看板(1)
    • Excel(3)
  • 会社情報
  • FaceBook
  • お問い合わせ
  • 非公開Contents
スケジュール
カウンター
Today : 33
Yesterday : 82
Total : 136858
携帯サイト

小山産業株式会社 / 安全施設と看板

小山産業株式会社 / 安全施設と看板
0795-22-4202
  • トップページ
  • お知らせ
  • 施工・納入実績 写真一覧
  • 商品・サービス
  • 雑記帳
  • 会社情報
  • FaceBook
  • お問い合わせ
  • 非公開Contents
©2023 小山産業株式会社. All Rights Reserved.
Powered by グーペ / Admin