[[20171007162919]]　『ダブルクリックでオートシェイプを表示する』（クマ）　ページの最後に飛ぶ

『ダブルクリックでオートシェイプを表示する』（クマ）

他の方のQ&Aを参考にして
A3からY50セルをダブルクリックするとクリックしたセル各行へAH列に入れた項目がオートシェイプで表示するのですが表示した項目を再度ダブルクリックすると消えるようにしたいです。
それとJ列をダブルクリックするとJ1に入れた項目をオートシェイプ表示、K列をダブルクリックするとK1に入れた項目をオートシェイプ表示する様に、S列まで同じ要領で表示したいです。
宜しくお願いします。

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

    MyCul = "AH" '項目を入力した列

    If Intersect(Target, Range("A3:Y50")) Is Nothing Then Exit Sub

    With Target
        If Range(MyCul & .Row).Value <> "" Then
            ActiveSheet.Shapes.AddShape(Type:=msoShapeRoundedRectangle, _
                    Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height).Select

            Selection.Characters.Text = Range(MyCul & .Row).Value
            Selection.AutoSize = True
            Selection.ShapeRange.Fill.ForeColor.RGB = Range(MyCul & .Row).Interior.Color
            Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
            Selection.Font.ColorIndex = Range(MyCul & .Row).Font.ColorIndex
        End If
    End With
End Sub

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

1行追加して

 Selection.OnAction = "DeleteMe"

そうすると、表示した図形に下記マクロを登録できます。

 Sub DeleteMe()
    ActiveSheet.Shapes(Application.Caller).Delete
 End Sub

（マナ） 2017/10/07(土) 17:10

コメント返信：

[ 一覧(最新更新順) ]

[[20171007162919]] 『ダブルクリックでオートシェイプを表示する』（クマ） ページの最後に飛ぶ

[[20171007162919]]　『ダブルクリックでオートシェイプを表示する』（クマ）　ページの最後に飛ぶ