Zoomなどの会議で便利！Excelを使って図解するときに便利な枠と線をワンタッチで作る

会議や打ち合わせで、紙とペンを使ってサッと図解したいときがあります。しかし、最近のZoomのミーティングなどが増えたことでそれができずに困ったりしていませんか？
そんなときにExcelを使って簡単に図を出すボタンの作り方です。
マクロを使いますが、マクロを使ったことがなくても大丈夫です。

なるほど。つまりこういうことですね（サラサラ）。

これを5分かけてマウスで書いているのを見せられている時間…

できること…Excelに、枠と線を描くボタンを追加する。
所要時間　５分

手順
1. 個人用マクロブックを使えるようにする
2. マクロを貼り付ける
3. リボンにボタンを作る

１．個人用マクロブックを使えるようにする
２．マクロの貼り付け
３．マクロを起動するボタンを追加する
追加情報

１．個人用マクロブックを使えるようにする

Excelを開いたときに常に使えるマクロファイルが個人用マクロブックですが、デフォルトでは存在しない場合があるので以下の手順で作成します。

画面下のマクロを記録ボタンをクリックします。
マクロの保存先に、個人用マクロブックを選択します。
OKを押し、A1のセルに”テスト”と入力します。
画面下のマクロ記録ボタンを押し、記録を終了させます。

２．マクロの貼り付け

Excel上で”Alt＋F11”を押してVBAの編集画面を表示させ、左のツリーのPersonal.xlsbにある”Module1”をクリックします。
先ほどのマクロ（Sub Macro～）が記録されているので、全部消します。
下に貼られているマクロをすべて選択し、消したスペースに貼ります。
右上の×ボタンで編集画面を閉じます。

Sub myRec()
'
'選択しているセルに、四角を書きます。
'

    ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, ActiveCell.Left, ActiveCell.Top, 120, 70).Select
  Selection.ShapeRange.ShapeStyle = msoShapeStylePreset1
    With Selection.ShapeRange.Line
         .ForeColor.RGB = RGB(154, 107, 60)  '線の色を変えます。
        .Weight = 2.25                      '線の太さを変えます。
    End With
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255) '白で塗りつぶします。
        
        
End Sub
Sub myCon()
'
' 選択しているセルに線を引きます。
'

    ActiveSheet.Shapes.AddConnector(msoConnectorElbow, ActiveCell.Left, ActiveCell.Top, 200, 200).Select
    With Selection.ShapeRange.Line
        .EndArrowheadStyle = msoArrowheadTriangle   '終端を三角矢印にします
        .ForeColor.RGB = RGB(98, 117, 67)           '線の入りを変えます。
        .Weight = 2.25                              '太さを変えます。

    End With
    
End Sub

あともう少しです！