|
▼ウッシ さん、▼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を実行後、グラフをクリックして確認してみてください。
私がテストした限りではうまく作動していますが・・・。
|
|