'=========================================================================================
Sub 選択された複数の図形の中の各図形の属性を表示する()
    Worksheets("Sheet1").Activate               '※１
    With Selection
        個数 = .ShapeRange.Count
        For インデックス番号 = 1 To 個数
            名前 = .ShapeRange(インデックス番号).Name
            種類 = .ShapeRange(インデックス番号).Type
            ID = .ShapeRange(インデックス番号).ID '※２
            幅 = .ShapeRange(インデックス番号).Width
            高さ = .ShapeRange(インデックス番号).Height
            左上端セル = .ShapeRange(インデックス番号).TopLeftCell.Address
            左端距離 = .ShapeRange(インデックス番号).Left
            上端距離 = .ShapeRange(インデックス番号).Top
            MsgBox "選択された図形の内のインデックス番号 " _
                & インデックス番号 & " の図形の主な属性　" & vbCr & vbCr _
                & "　名前… " & 名前 & vbCr _
                & "　種類… " & 種類 & vbCr _
                & "　ＩＤ… " & ID & vbCr _
                & "　幅　 … " & 幅 & vbCr _
                & "　高さ … " & 高さ & vbCr _
                & "　左上端セル… " & 左上端セル & vbCr _
                & "　左端距離　… " & 左端距離 & vbCr _
                & "　上端距離　… " & 上端距離, , "すぐマク"
        Next
    End With
End Sub
'-----------------------------------------------------------------------------------------
Sub 選択された複数の図形の前景色を設定する()
    Worksheets("Sheet3").Activate               '※１
    With Selection
        個数 = .ShapeRange.Count
        For インデックス番号 = 1 To 個数
            With .ShapeRange(インデックス番号).Fill
                .ForeColor.RGB = RGB(255, 255, 0)
            End With
        Next
    End With
End Sub
'=========================================================================================

'=========================================================================================
Sub 選択されたテキストボックスのテキストを表示する()
    Worksheets("Sheet2").Activate
    MsgBox Selection.Characters.Text, , "すぐマク"
End Sub
'=========================================================================================