Excel VBA質問箱 IV

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

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


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

76185 / 76732

←次へ　｜　前へ→


	【4972】Re:グラフの作成

Jaka - 03/4/16(水) 9:11 -


	引用なし

	パスワード

おはようございます。

>この操作だと、シートを表示したときにはうまく表示できますが、セルにポイントを持っていくと最大値と最小値が変わってしまいます。
>セルを触っても変わらなくする方法はありますか？

この意味が良く解らなかったけど．．．。
データ範囲を変えられたくないと取りました。
こんな感じでしょうか？

Sub GRF()
　　Dim WS As Worksheet, WS2 As Worksheet, GRP1 As Object
　　Set WS = Worksheets("ＨＥＡＬＴＨ")
　　Set WS2 = Worksheets("グラフ")
　　Set GRP1 = WS2.ChartObjects.Add(100, 100, 500, 300)
　　GRP1.Chart.SetSourceData _
　　　　Source:=WS.Range("A1:B30"), PlotBy:=xlColumns
　　GRP1.Chart.ChartType = xlLine
　　
　　GRP1.Name = "作成グラフ"
　　　　　
　　With WS2.ChartObjects("作成グラフ")
　　　　With .Chart.Axes(xlValue)
　　　　　　.MinimumScale = 50
　　　　　　.MaximumScale = 65
　　　　　　.MinorUnitIsAuto = True
　　　　　　.MajorUnit = 1
　　　　　　.Crosses = xlAutomatic
　　　　　　.ReversePlotOrder = False
　　　　　　.ScaleType = xlLinear
　　　　　　.DisplayUnit = xlNone　'ここ、97だとエラーになった。2000だと動いたけど。　
　　　　End With
　　　　.Chart.ProtectData = True
　　End With
　　Set WS = Nothing
　　Set WS2 = Nothing
　　Set GRP1 = Nothing
End Sub

1 hits

▼

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