|
そのマクロです。
Sub ふきだし()
Dim vLeft, vtop, vHeight, vWidth As Long
With ActiveCell '位置調整
vLeft = .Left + .Width + 22
vtop = .Top - 15
vHeight = 10
vWidth = 50
End With
ActiveSheet.Shapes.AddShape(msoShapeLineCallout3, vLeft, vtop, vWidth, vHeight).Select
With Selection.ShapeRange.Fill 'ボックスの色
.ForeColor.RGB = RGB(255, 204, 204)
End With
With Selection.ShapeRange.Line '吹出し先と線
.ForeColor.SchemeColor = 20
.BeginArrowheadStyle = msoArrowheadOval
.EndArrowheadStyle = msoArrowheadOval
End With
Selection.Characters.Text = ">"
With Selection.Font
.Name = "MS Pゴシック"
.Size = 8
End With
End Sub
|
|