ExcelのVBAで図形/シェイプの処理
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
|
ログイン
] [
Twitter
]
開始行:
→[[ExcelのVBA]]
-[[図形の入った資料を高速で書く試み #Excel - Qiita>https:...
-[[Excel VBA(マクロ)で図形の位置を取得・変更・移動する...
--セルの座標は 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 = msoShapeRound...
'角の丸い四角
Selection.Font.ColorIndex = xlAutomatic
End If
ElseIf shap.Type = msoLine Then
Selection.ShapeRange.Line.ForeColor.Schem...
Selection.ShapeRange.Line.BackColor.RGB =...
ElseIf shap.Type = msoTextBox Then
Selection.Font.ColorIndex = xlAutomatic
End If
End With
Next
End Sub
-シェイプを最背面に移動 [#t09962c5]
Selection.ShapeRange.ZOrder msoSendToBack '最背面に移動
終了行:
→[[ExcelのVBA]]
-[[図形の入った資料を高速で書く試み #Excel - Qiita>https:...
-[[Excel VBA(マクロ)で図形の位置を取得・変更・移動する...
--セルの座標は 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 = msoShapeRound...
'角の丸い四角
Selection.Font.ColorIndex = xlAutomatic
End If
ElseIf shap.Type = msoLine Then
Selection.ShapeRange.Line.ForeColor.Schem...
Selection.ShapeRange.Line.BackColor.RGB =...
ElseIf shap.Type = msoTextBox Then
Selection.Font.ColorIndex = xlAutomatic
End If
End With
Next
End Sub
-シェイプを最背面に移動 [#t09962c5]
Selection.ShapeRange.ZOrder msoSendToBack '最背面に移動
ページ名: