Excel 独自のアドインを作成する。

ファイルによらず使えるExcelのVBAを作成した際に、アドインとして登録したり、チーム内で使いまわせるようにする方法を記載します。

EXCEL2013,EXCEL2016で作成したことがあります。

Excelアドインファイルを作成する。

Excelの名前を付けて保存から、ファイルの種類にExcelアドインを選択します。

選択すると保存先が%USERPROFILE%\AppData\Roaming\Microsoft\Addins　に変わります。

名前を設定して保存します。

開発タブを有効にする。

すでに開発タブがある人は飛ばしてください。

ファイル＞オプション＞リボンのユーザー設定から開発のチェックボックスをONにします。

独自のアドインを有効にする

開発タブ＞アドインから作成したアドインのチェックボックスをONにします。

マクロを登録する。

マクロの内容は何でもいいのですが、ここでは赤色RGB(255,0,0)の四角を配置するマクロを作成します。

VisualBasicを起動し、独自のアドイン側に標準モジュールを追加します。

標準モジュール内に以下のように記述します。

Sub 赤枠()
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, ActiveCell.Left, ActiveCell.Top, 270, 70).Select
    Selection.ShapeRange.Fill.Visible = msoFalse
    With Selection.ShapeRange.Line
    .Visible = msoTrue
    .ForeColor.RGB = RGB(255, 0, 0)
    .Transparency = 0
    End With
    Selection.ShapeRange.ScaleWidth 0.6, msoFalse, msoFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.36, msoFalse, msoFromTopLeft
End Sub