- Excel VBA 質問スレ Part34
772 ：デフォルトの名無しさん[sage]：2014/10/07(火) 09:08:58.63 ID:g8pr77TK - >>766
マクロの記録でちょっと覗いてみた
ActiveSheet.ChartObjects("グラフ 1""").Activate
ActiveChart.PlotArea.Select
Selection.Top = 52.102
Selection.Height = 203.72
ActiveChart.Axes(xlValue).MinimumScale = -1
ActiveChart.Axes(xlValue).MaximumScale = 3.5
mousedownの原点がどこだか知らんけどChartObjectsの原点との差分、PlotAreaとの差分でポイント位置求めて
ポイント位置/Height をMinimumScale MaximumScale の比率で合わせる感じか？
横方向もクリックした位置が何項目目の領域なのかを求めて、とかか
軸の向きにも注意かね（グラフは下から上に増える・位置座標は上から下に増える）
系列が複数あった場合はもうｼﾗﾈ
|