Excel VBA質問箱 IV

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

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


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

57098 / 76738

←次へ　｜　前へ→


	【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