セルの枠線に合わせて矩形を描画する

概要

セルの枠線に合わせて矩形を描画します.

前回の「できそうなこと」の検証です.

コード

' セルの枠線に合わせて図形(矩形)を描画する
Sub DrawRectanglesOnCells()

    '矩形の個数
    Const RectanglesCount = 3

    ' 矩形の位置を計算する基本単位(BasicUnit).
    Dim BasicUnitX
    BasicUnitX = Cells(1, 2).Width

    Dim BasicUnitY
    BasicUnitY = Cells(1, 1).RowHeight

    ' 矩形を描画する初期位置(Offset)
    Dim OffsetX
    OffsetX = BasicUnitX * 1

    Dim OffsetY
    OffsetY = BasicUnitY * 3

    ' 矩形間に入れる空白行
    Dim BlankLineSizeY
    BlankLineSizeY = BasicUnitY * 2

    ' 矩形のサイズ
    Dim RectangleWidthX
    RectangleWidthX = BasicUnitX * 2

    Dim RectangleHeightY
    RectangleHeightY = BasicUnitY * 3

    '''''
    ' 矩形をループで描画する
    Dim i, Left, Top

    ' 初期位置
    Left = OffsetX
    Top = OffsetY

    For i = 1 To RectanglesCount
        ' 矩形を描画
        Call ActiveSheet.Shapes.AddShape(msoShapeRectangle, Left, Top, RectangleWidthX, RectangleHeightY)

        ' 次のTopを計算
        Top = Top + RectangleHeightY + BlankLineSizeY
    Next
End Sub