Excel VBA質問箱 IV

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

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


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

76194 / 76732

←次へ　｜　前へ→


	【4963】グラフの作成

くみ - 03/4/15(火) 17:12 -


	引用なし

	パスワード

現在シート「ＨＥＡＬＴＨ」の値を同じシートに線グラフとして表示させるＶＢＡを
作成しました。
こんな感じに
Sub グラフ作成()
　　Set WS = Worksheets("ＨＥＡＬＴＨ")
　　
　　Set GRP1 = WS.ChartObjects.Add(100, 100, 500, 300)
　　GRP1.Chart.SetSourceData _
　　　　Source:=WS.Range("A1:B30"), PlotBy:=xlColumns
　　GRP1.Chart.ChartType = xlLine
ActiveSheet.ChartObjects("グラフ 6").Activate
　　ActiveChart.ChartArea.Select
　　ActiveChart.Axes(xlValue).Select
　　With ActiveChart.Axes(xlValue)
　　　　.MinimumScale = 50
　　　　.MaximumScale = 65
　　　　.MinorUnitIsAuto = True
　　　　.MajorUnit = 1
　　　　.Crosses = xlAutomatic
　　　　.ReversePlotOrder = False
　　　　.ScaleType = xlLinear
　　　　.DisplayUnit = xlNone
　　End With
　　
End Sub

これを
シート「ＨＥＡＬＴＨ」ではなくシート「グラフ」に表示させたいのです
また
グラフの操作（最大値と最小値の変更、メモリの変更）を後から行っているのですが、
この操作だと、シートを表示したときにはうまく表示できますが、セルにポイントを
持っていくと最大値と最小値が変わってしまいます。
セルを触っても変わらなくする方法はありますか？

よろしくお願いいたします。

0 hits

▼

【4963】グラフの作成 くみ 03/4/15(火) 17:12

≪