ExcelのVBAで図形／シェイプの処理 の履歴差分(No.1)

• 履歴一覧
• 現在との差分 を表示
• ソース を表示
• 履歴 を表示
• ExcelのVBAで図形／シェイプの処理 へ行く。
  • 1 (2022-10-29 (土) 16:01:43)

• 追加された行はこの色です。
• 削除された行はこの色です。

→[[ExcelのVBA]]


-[[Excel VBA（マクロ）で図形の位置を取得・変更・移動する方法/Top、Left、IncrementLeft、IncrementTopの使い方 | すなぎつ>https://sunagitsune.com/excelvbashapestopleft/]] 2022.3

--セルの座標は Range("X1").Left/Top で取れる


-シート上のシェイプの色をまとめて黒に戻す例 [#d19b3958]
 Sub Macro1()
    Dim i As Integer
    Dim acs As Worksheet
    Set acs = ActiveSheet
    For i = 1 To acs.Shapes.Count
        Dim shap As Shape
        Set shap = acs.Shapes(i)
        With shap
            acs.Activate
            shap.Select
            DoEvents
            If (shap.Type = msoAutoShape) Then
                If shap.AutoShapeType = msoShapeMixed Then
                    'コンピュータ図とか
                ElseIf shap.AutoShapeType = msoShapeRoundedRectangle Then
                    '角の丸い四角
                    Selection.Font.ColorIndex = xlAutomatic
                End If
                
            ElseIf shap.Type = msoLine Then
                Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
                Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
            
            ElseIf shap.Type = msoTextBox Then
                Selection.Font.ColorIndex = xlAutomatic
            End If
        End With
    Next
 End Sub


-シェイプを最背面に移動 [#t09962c5]
 Selection.ShapeRange.ZOrder msoSendToBack '最背面に移動