Excel VBA 質問スレッド No.814 (未解決)

ダブルクリックしたセルに数字の入った円形吹き出し図形を挿入したい

投稿者 : Z     投稿日時 : 2022/06/20(Mon) 15:37:45     OS : Windows 10     EXCEL : Excel 2013
ダブルクリックしたセルに円形吹き出し図形を挿入したいです。
また、その図形の中に数字いれたいです。数字はダブルクリックで図形を追加するたびに+1カウントアップさせたいです。

円形吹き出し図形
高さ、幅共に0.8センチ
色は背景は白で、枠線を赤

図形の中の数字
色は黒
フォントサイズは10
中央揃え

以上の条件で追加したいです。

VBA初心者ですので、ご教授お願いします。

[返信 1] Re : ダブルクリックしたセルに数字の入った円形吹き出し図形を挿入したい
投稿者 : ピロリ     投稿日時 : 2022/06/20(Mon) 18:58:50
Worksheet_BeforeDoubleClick() にソース記述しています。 参考になれば。

座標は±αして調整して下さい。 おまけコードは参考なので不要なら消して下さい。 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim Sp As Shape

Set Sp = ActiveSheet.Shapes.AddShape(msoShapeOvalCallout, _
Target.Left, _
Target.Top, _
Application.CentimetersToPoints(0.8), _
Application.CentimetersToPoints(0.8))
Sp.Fill.ForeColor.RGB = vbWhite
Sp.Line.ForeColor.RGB = vbRed

Cells(1, 1) = Cells(1, 1) + 1 'A1セルを使用させてもらって、数値を更新しています。
With Sp.TextFrame
.Characters.Text = Cells(1, 1)
.Characters.Font.Name = "MS 明朝" 'おまけ(フォントの設定)
.Characters.Font.Color = vbBlack
.Characters.Font.Size = 10
.MarginTop = 0 'おまけ(余白の設定:上)
.MarginBottom = 0 'おまけ(余白の設定:下)
.MarginLeft = 0 'おまけ(余白の設定:左)
.MarginRight = 0 'おまけ(余白の設定:右)
.HorizontalAlignment = xlHAlignCenter
.VerticalAlignment = xlVAlignCenter
End With

Cancel = True 'おまけ(ダブルクリック後に入力モード解除)

End Sub

当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2022-07-07 12:43:21 )

Page
Top