Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
281 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【81283】BeforeDragOverイベント はなこ 20/5/10(日) 8:06 質問[未読]
【81284】Re:BeforeDragOverイベント BJ 20/5/10(日) 12:26 発言[未読]
【81286】Re:BeforeDragOverイベント はなこ 20/5/10(日) 14:20 お礼[未読]
【81287】ごめんなさい。 BJ 20/5/10(日) 15:30 発言[未読]
【81283】BeforeDragOverイベント
質問  はなこ  - 20/5/10(日) 8:06 -
引用なし
パスワード
   D&DでExcelの外部から画像を取得しようとしています。

シートに直接、ActiveX ImageとListview を配置して夫々以下のコードを追加しています。

Private Sub Label1_BeforeDragOver(ByVal Cancel・・・
Me.ListView1.Visible = True
End Sub
　　
Private Sub ListView1_OLEDragDrop(Data As
Me.Image1.Picture = LoadPicture(Data.Files(1))
Me.ListView1.Visible = False
End Sub

実行しても、BeforeDragOverのイベントが発生しないのですが、これが正解なのでしょうか？
Labelコントロールでも試してみましたが、やはりBeforeDragOverイベントは発生しませんでした。
但し、Form上に置いた場合は問題ありませんでした。
Webであちこち検索してみたのですが記事が見つかりません。どなたかお分かりの方がいましたらご指導ください。
【81284】Re:BeforeDragOverイベント
発言  BJ  - 20/5/10(日) 12:26 -
引用なし
パスワード
   2007ですが、ユーザーフォーム上に BeforeDragOver イベントは存在しますが、
シートのイベントには、存在しませんでした。

1度、自分でそんなイベントがあるのか調べてみるのも良いとおもいます。
ないものは無いと自己判断することも必要かと・・・。
後は自分で作るか・・・。
（APIビンビンになりそう。）
【81286】Re:BeforeDragOverイベント
お礼  はなこ  - 20/5/10(日) 14:20 -
引用なし
パスワード
   ▼BJ さん：

すみません。
操作を間違えたようです。
回答、ありがとうございました。Formで作成する方向に切り替えます。
【81287】ごめんなさい。
発言  BJ  - 20/5/10(日) 15:30 -
引用なし
パスワード
   すみません。

シート上のアクティブｘコントロールのラベルでしたね。
ありました。
でも使った事が無いので良く解りませんでした。

Private Sub Label1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)

End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
281 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free