Excel VBA質問箱 IV

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

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


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

57097 / 76732

←次へ　｜　前へ→


	【24375】Re:クリックしたところに吹き出しを出したい

ウッシ - 05/4/20(水) 20:45 -


	引用なし

	パスワード

▼VBAビギナーさん：
>何方かご教授ください。
>myCht_MouseUp(., ByVal x As Long, ByVal y As Long）イベントを利用し、
>xとyの位置と　吹き出しの.Adjustments.Item(1)　Item(2)の位置を同じにしたいのですが、やり方が解りません、宜しくお願いします。
>（クリックしたところに吹き出しの.Adjustments.Itemをもってきたい。）

こんばんは

分りません、お手上げなので他の方のレスを待って下さい。

Private Sub myChartClass_MouseUp( _
　　　　　　　ByVal Button As Long, ByVal Shift As Long, _
　　　　　　　ByVal x As Long, ByVal y As Long)

　　Dim xx As Double
　　Dim yy As Double

>'「x」「y」の値がそのまま使える訳ではないので
>'xx、yy に「x」「y」に関連付け出来る何かの値をセットすれば良さそう
>'なのですが、元々Item(1)、Item(2)にセットする値と吹き出し口の位置の関係
>'がさっぱり分らないのでどうしようも無いです。

　　With ActiveSheet.Shapes("AutoShape 1").Adjustments
　　　　.Item(1) = xx
　　　　.Item(2) = yy
　　End With
End Sub

1 hits

▼

【24368】クリックしたところに吹き出しを出したい VBAビギナー 05/4/20(水) 17:32