Excel VBA質問箱 IV

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

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


43372 / 76735 ←次へ | 前へ→

【38412】Re:ワークシート上のグラフの座標を知り...
お礼  わいわい  - 06/6/2(金) 9:33 -

引用なし
パスワード
   ichinose 様、Kein 様 長々とお付き合いい頂きありがとうございます。

>   hx = ActiveChart.ChartArea.Left
>   hy = ActiveChart.ChartArea.Top
>   With UserForm1
>    .TextBox_X.Value = _
>      (0.75 * x * 100 / ActiveWindow.Zoom - hx - lp) * dx
>    .TextBox_Y.Value = _
>       (Tp + Hp - 0.75 * y * 100 / ActiveWindow.Zoom + hy) * dy
>これではどうでしょうか?
>もっともこれでも微妙な誤差は残りますね・・・。

チェックしてみたところ、InsideWidthとInsideHeightは図面上最小軸と最大軸の距離を正確(4/3*ActiveWindow.Zoom/100補正はしていますが)に表しており、
InsideLeftとInsideTopの値は、図面左上(X最小軸,Y最大軸)から(-4,-4)であることから

  With ActiveChart.PlotArea
    Lp = .InsideLeft + 4: Tp = .InsideTop + 4
    Wp = .InsideWidth: Hp = .InsideHeight
    dx = 100 / Wp
    dy = 100 / Hp
  End With
とすることで、図面上の座標をほぼ正確に獲得できました。精度はこの程度で十分と思います。

>今度は、Selectイベントを使用した例です。
動作確認致しました。グラフ発生モジュールまで作成していただき、本当にありがとうございます。内容については、まだ読みきれていませんが、色々応用できそうなので、有難く使わせていただきます。

>これを わいわいさんのおっしゃる「非直交5軸の線図」に
>応用できますか?

大層な書き方しましたが、結局は実験式によるグラフを集めて、それぞれの関連を表したグラフです。画面表示が可能な2次元グラフですから(x,y)が分かれば後は換算式でバリバリ(コンピューターが)計算できます。

この度は、お二方ともにありがとうございました。

1 hits

【38273】ワークシート上のグラフの座標を知りたい わいわい 06/5/30(火) 20:37 質問
【38299】Re:ワークシート上のグラフの座標を知りたい Kein 06/5/31(水) 3:12 回答
【38355】Re:ワークシート上のグラフの座標を知り... わいわい 06/5/31(水) 19:10 質問
【38360】Re:ワークシート上のグラフの座標を知り... Kein 06/5/31(水) 22:01 回答
【38371】Re:ワークシート上のグラフの座標を知り... ichinose 06/6/1(木) 8:25 発言
【38379】Re:ワークシート上のグラフの座標を知り... わいわい 06/6/1(木) 12:41 質問
【38381】Re:ワークシート上のグラフの座標を知り... Kein 06/6/1(木) 13:04 発言
【38395】Re:ワークシート上のグラフの座標を知り... ichinose 06/6/1(木) 20:38 発言
【38396】Re:ワークシート上のグラフの座標を知り... ichinose 06/6/1(木) 21:12 発言
【38412】Re:ワークシート上のグラフの座標を知り... わいわい 06/6/2(金) 9:33 お礼
【38413】Re:ワークシート上のグラフの座標を知り... ichinose 06/6/2(金) 10:01 発言
【38420】Re:ワークシート上のグラフの座標を知り... わいわい 06/6/2(金) 11:12 発言
【38435】Re:ワークシート上のグラフの座標を知り... ichinose 06/6/2(金) 19:11 発言
【38437】Re:ワークシート上のグラフの座標を知り... わいわい 06/6/2(金) 20:54 お礼
【38440】Re:ワークシート上のグラフの座標を知り... ichinose 06/6/2(金) 22:14 発言

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