**********************************************
相変わらず、在宅勤務が続いており、Web会議システムを使用しての
ミーティングに参加していています。
私も時々、画面を共有して報告したり、相談をしています。
画面上で資料などを共有していても、
「この箇所が」などと、特定の場所を説明するときは
言葉だけでの説明が難しいなと感じます。
「プレゼンの時に使っているレーザーポインターのようなものがあればいいなぁ」
と思ったので、ワンクリックでレーザーポインターの役割をする
「矢印」を出すマクロを、「マクロの記録」を使って作成しました。
（こんなやつ）
**********************************************
手順（矢印の図形挿入）
１．マクロの記録を開始する
開発タブの中にあります。
私は左下に常時表示させているので、そこからスタートします。
詳しい設定の仕方はこちらの記事を参考にしてください。
２．矢印の図形を作成する
作成といっても「挿入」タブの中から矢印を選択するだけです。
過去に使用したことがあれば上部に表示されています。
選択したら、シート上好きなところをクリックして矢印を挿入します。
３．色を変える
Excel は白色が基調なので、やはり赤色が目立つと思います。
・挿入した矢印の図形を選択
・「書式」タブを選択
・「図形の塗りつぶし」から好みの色を選択
４．マクロの記録を停止する
「マクロの記録」を停止します。
マクロ
以下の様なマクロが記録されます。
---------------------------------------
Sub Macro10()
'
' Macro10 Macro
①ActiveSheet.Shapes.AddShape(msoShapeRightArrow, 290.4, 62.4, 77.04, 38.16). _
Select
② With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
.Solid
End With
End Sub
---------------------------------------
①は矢印の図形を挿入するマクロです。
②は色を変更したマクロです。
このままだと、いつも同じ位置に矢印が挿入されるので、
選択したセルの位置に表示するように①のマクロを調整します。
ActiveSheet.Shapes.AddShape
(msoShapeRightArrow, 290.4, 62.4, 77.04, 38.16). Select
この数字は左から
横の位置
縦の位置
図形の幅
図形の高さ
を意味しています。
試しに
横の位置 ０
縦の位置 ０
図形の幅 １００
図形の高さ １０
にして、実行すると
ActiveSheet.Shapes.AddShape(msoShapeRightArrow, 0, 0, 100, 10). _
Select
シートの左上に細長い矢印が挿入されました。
常に同じ位置に挿入させたいのであれば固定値でもよいと思いますが、私は選択したセルのところに出したいので、
Selection.Left
Selection.Top
を使用して、選択セルの位置を取得して、代入します。
---------------------------------------
Sub Macro10()
'
' Macro10 Macro
Dim Left As Long
Dim Top As Long
Left= Selection.Left
Top = Selection.Top
ActiveSheet.Shapes.AddShape(msoShapeRightArrow, Left, Top, 77.04, 38.16). _
Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
.Solid
End With
End Sub
---------------------------------------
マクロは完成です。
あとはリボンに登録して、ポチッとすればいつでも矢印を表示させることができます。
私は画面の半分ずつ２つの Excel を表示させて説明することがあるので、
赤と青の矢印を用意しました。
たぶん、このマクロは PowerPoint にも流用できるのではないかと思っています。
こんど調査して、できそうであれば紹介します。
**********************************************
個人用マクロブックについてはこちら
リボンに登録についてはこちら
＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／＿／
