Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

68499 / 76734

←次へ　｜　前へ→


	【12772】Re:セルのアドレスを利用してプレビューを表示したい

Jaka - 04/4/14(水) 17:01 -


	引用なし

	パスワード

こんにちは。

>追記として
こっちは、見ていなかったので．．．．。

例えばシート上にコントロールツールボックスのイメージ（名前は、Image1）を作って、それにロードする方法じゃダメでしょうか？

それと、左下だとイメージの大きさを調べてセルの位置を調べて伝〃と、計算させるのが面倒だったのと、イメージを作ったり消したりさせるのも何でしたので、表示非表示をさせて右に移動する方法にしてあります。

取合えず、B2セルをＷクリックすると表示され、他のセルをＷクリックすると非表示となってます。

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

1 hits

▼

【12763】セルのアドレスを利用してプレビューを表示したい よし 04/4/14(水) 15:38