Excelのこととか色々

Excel のこととか楽天とか いろいろ書いてみます・・・

【Excel/VBAのこと40】Web会議に便利な矢印をマクロの記録を使って作る

   f:id:tuna-kichi:20200223230814p:plain

 

**********************************************

相変わらず、在宅勤務が続いており、Web会議システムを使用しての

ミーティングに参加していています。

私も時々、画面を共有して報告したり、相談をしています。

 

画面上で資料などを共有していても、

「この箇所が」などと、特定の場所を説明するときは

言葉だけでの説明が難しいなと感じます。

 

「プレゼンの時に使っているレーザーポインターのようなものがあればいいなぁ」

と思ったので、ワンクリックでレーザーポインターの役割をする

「矢印」を出すマクロを、「マクロの記録」を使って作成しました。

 

 こんなやつ (こんなやつ)

 

**********************************************

手順(矢印の図形挿入)

1.マクロの記録を開始する

 マクロの記録を開始する

開発タブの中にあります。

私は左下に常時表示させているので、そこからスタートします。

 

 マクロの記録を設定しておける

詳しい設定の仕方はこちらの記事を参考にしてください。

 

www.tuna-kichi.com

 

2.矢印の図形を作成する

作成といっても「挿入」タブの中から矢印を選択するだけです。

過去に使用したことがあれば上部に表示されています。

 矢印を挿入

 

選択したら、シート上好きなところをクリックして矢印を挿入します。

 矢印を挿入

 

3.色を変える

Excel は白色が基調なので、やはり赤色が目立つと思います。

・挿入した矢印の図形を選択

・「書式」タブを選択

・「図形の塗りつぶし」から好みの色を選択

 矢印の色変更

 

4.マクロの記録を停止する

 「マクロの記録」を停止します。

 マクロの記録を停止

 

マクロ

以下の様なマクロが記録されます。
---------------------------------------

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

 

この数字は左から

横の位置
縦の位置
図形の幅
図形の高さ

を意味しています。

 

試しに

横の位置 0
縦の位置 0
図形の幅 100
図形の高さ 10

にして、実行すると

ActiveSheet.Shapes.AddShape(msoShapeRightArrow, 0, 0, 100, 10). _
Select

シートの左上に細長い矢印が挿入されました。

 sample

 

常に同じ位置に挿入させたいのであれば固定値でもよいと思いますが、私は選択したセルのところに出したいので、

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
---------------------------------------

マクロは完成です。

あとはリボンに登録して、ポチッとすればいつでも矢印を表示させることができます。

 リボンに登録

 

私は画面の半分ずつ2つの Excel を表示させて説明することがあるので、

赤と青の矢印を用意しました。

 

たぶん、このマクロは PowerPoint にも流用できるのではないかと思っています。

こんど調査して、できそうであれば紹介します。

 

**********************************************

 

個人用マクロブックについてはこちら

www.tuna-kichi.com

 

リボンに登録についてはこちら

www.tuna-kichi.com

 

 

_/_/_/_/_/_/_/_/_/_/_/_/_/_/