|
▼あくたいおん さん:
こんばんは。
Sub ふきだし()
Dim vLeft, vtop, vHeight, vWidth As Long
With ActiveCell '位置調整
vLeft = .Left + .Width + 22
vtop = .Top - 15
vHeight = 10
vWidth = 50
End With
With ActiveSheet.Shapes.AddShape(msoShapeLineCallout3, vLeft, vtop, vWidth, vHeight)
.Fill.ForeColor.RGB = RGB(255, 204, 204)
With .Line
.ForeColor.SchemeColor = 20
.BeginArrowheadStyle = msoArrowheadOval
.EndArrowheadStyle = msoArrowheadOval
End With
With .TextFrame.Characters
.Text = ""
With .Font
.Name = "MS Pゴシック"
.Size = 8
End With
End With
.Select
SendKeys " {BS}"
End With
End Sub
上記のようにSendkeysでも使用すれば出来そうですけど・・・、
私ならInputbox等で入力させてから、
その内容をテキストとしてシェイプに代入しますけどね!!
正直、業務ではSendkeysは使ったことがありません。
|
|