Excel VBA質問箱 IV

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

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


57092 / 76732 ←次へ | 前へ→

【24380】Re:クリックしたところに吹き出しを出したい
発言  ichinose  - 05/4/20(水) 21:38 -

引用なし
パスワード
   ▼ウッシ さん、▼VBAビギナー さん、こんばんは。

>>何方かご教授ください。
>>myCht_MouseUp(., ByVal x As Long, ByVal y As Long)イベントを利用し、
>>xとyの位置と 吹き出しの.Adjustments.Item(1) Item(2)の位置を同じにしたいのですが、やり方が解りません、宜しくお願いします。
>>(クリックしたところに吹き出しの.Adjustments.Itemをもってきたい。)
>
グラフ(Chart 1)と吹き出し(オートシェイプ 1)が存在するシートの
モジュールに

'===============================================================
Dim WithEvents cht As Chart
'===============================================================
Sub set_obj()
  Set cht = Me.ChartObjects("Chart 1").Chart
End Sub
'===============================================================
Private Sub cht_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
  Dim shp As Shape
  Dim paobj As ChartObject
  Set paobj = cht.Parent
  Set shp = Me.Shapes("オートシェイプ 1")
  With shp
   .Adjustments(1) = (paobj.Left + 0.75 * x - .Left) / .Width
   .Adjustments(2) = (paobj.Top + 0.75 * y - .Top) / .Height
   .ZOrder msoBringToFront
   .Select
   End With
  Me.Select
End Sub


として、プロシジャーset_objを実行後、グラフをクリックして確認してみてください。

私がテストした限りではうまく作動していますが・・・。
0 hits

【24368】クリックしたところに吹き出しを出したい VBAビギナー 05/4/20(水) 17:32 質問
【24375】Re:クリックしたところに吹き出しを出したい ウッシ 05/4/20(水) 20:45 発言
【24380】Re:クリックしたところに吹き出しを出したい ichinose 05/4/20(水) 21:38 発言
【24384】Re:クリックしたところに吹き出しを出した... ichinose 05/4/20(水) 21:51 発言
【24387】Re:クリックしたところに吹き出しを出した... ウッシ 05/4/20(水) 22:33 発言
【24391】Re:クリックしたところに吹き出しを出したい m2m10 05/4/21(木) 8:27 質問
【24392】Re:クリックしたところに吹き出しを出したい IROC 05/4/21(木) 9:19 回答
【24394】Re:クリックしたところに吹き出しを出し... VBAビギナー 05/4/21(木) 10:56 お礼

57092 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free