|
こんにちは。
>追記として
こっちは、見ていなかったので....。
例えばシート上にコントロールツールボックスのイメージ(名前は、Image1)を作って、それにロードする方法じゃダメでしょうか?
それと、左下だとイメージの大きさを調べてセルの位置を調べて伝〃と、計算させるのが面倒だったのと、イメージを作ったり消したりさせるのも何でしたので、表示非表示をさせて右に移動する方法にしてあります。
取合えず、B2セルをWクリックすると表示され、他のセルをWクリックすると非表示となってます。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
With Image1
If Target.Address(0, 0) = "B2" Then
Cancel = True
.Left = Target.Offset(, 1).Left
.Top = Target.Offset(, 1).Top
.PictureSizeMode = 1
.Picture = LoadPicture(Target.Value)
.Visible = True
Else
.Visible = False
Cancel = False
End If
End With
End Sub
|
|