図形をグループ化する

0

    JUGEMテーマ:PC関連

     

    図形を3種類作成し、全てグループ化します。
    グループ化された図形の四角形だけを探し、幅を2倍にします。

    Sub Sample100()
        Dim SN(0 To 2) As String, C As Shape, D As Shape
        '四角形を描画します
        With ActiveSheet.Shapes.AddShape(msoShapeRectangle, 50, 50, 100, 100)
            .Fill.ForeColor.RGB = RGB(255, 0, 0)
            .Line.ForeColor.RGB = RGB(255, 0, 0)
            SN(0) = .Name
        End With
        '円形を描画します
        With ActiveSheet.Shapes.AddShape(msoShapeOval, 20, 20, 70, 70)
            .Fill.ForeColor.RGB = RGB(0, 0, 255)
            .Line.ForeColor.RGB = RGB(0, 0, 255)
            SN(1) = .Name
        End With
        '月形を描画します
        With ActiveSheet.Shapes.AddShape(msoShapeMoon, 70, 70, 50, 50)
            .Fill.ForeColor.RGB = RGB(255, 255, 0)
            .Line.ForeColor.RGB = RGB(255, 255, 0)
            SN(2) = .Name
        End With
        '四角形、円形、月形を全てグループ化します
        ActiveSheet.Shapes.Range(SN).Group
        MsgBox "図形をグループ化しました"
        '1秒間待機
        Application.Wait Now + TimeValue("00:00:01")
        MsgBox "グループ化された図形の四角だけ幅を2倍に伸ばします"
        '全ての図形からグループ化された図形の四角形の幅を変更
        For Each C In ActiveSheet.Shapes
          For Each D In C.GroupItems
            If D.AutoShapeType = msoShapeRectangle Then
             D.Width = D.Width * 2
            End If
          Next D
        Next C
    End Sub

     

    広告リンク


    コメント
    コメントする








       
    この記事のトラックバックURL
    トラックバック



    calendar

    S M T W T F S
     123456
    78910111213
    14151617181920
    21222324252627
    28293031   
    << July 2019 >>

    スポンサードリンク

    広告リンク

    広告リンク

    selected entries

    categories

    archives

    recent comment

    • 互換性チェックのメッセージが表示される
      salomon speedcross
    • 列記号の上、行番号の横に+や-の記号が表示されるようになった
      stussy clothing
    • 「2017年 窓の杜大賞」候補としてノミネート
      levis jeans
    • 数値を小数点位置で揃えるには(その1)
      Levis
    • 入力後矢印キーで修正すると入力モードが解除される
      stussy sweatshirt
    • 2016年間総合ダウンロードランキング100位以内
      lebron shoes
    • 他のブックからコピーして貼り付けると塗りつぶしの色が変わる
      salomon shoes
    • 画面上は色が付いているのにカラーで印刷できない
      nike air max 90
    • プレビューウィンドウを表示していると不具合が発生する
      pandora jewelry
    • ユーザー定義関数のコメントを表示する
      yeezy boost 350

    links

    profile

    search this site.

    others

    mobile

    qrcode

    recommend

    powered

    無料ブログ作成サービス JUGEM

    本日 昨日