こんにちわ。VBでEXCELを起動して、データを転送してグラフを書くところまで、皆さんのお力を借りて辿り着きました。その度は大変お世話になりました。それで、今回の問題は、そのグラフのプロパティも変更したい、、。Withとかを使って??実際やりたいのはEXCELの機能で目盛の書式設定、最大値最小値の変更をVBの変数を使って可変にしようかなと考えています。作り方に問題があるとは思いますけど、なんかデータとかが可変なんでグラフに偏りが出てくる為、そんな処理をしなければならないような感じなんですが、どうぞ宜しくお願いします。また説明下手ですね、、。
No.7
- 回答日時:
明日ですね。
わかりました。今日はこれで最後の書込みにしておきます。まだ 仕事中ですので、掲示はみております。
新たな質問は別スレッドにしてくださいね。あとで検索する時、一つのスレッドには一つの質問の方が、あとで検索しやすいので・・・・
やりたいことはピクチャボックスに描画していき、
Call SavePicure(Picture1.Image, "C:\Test.bmp")
っていうような要領で実現可能と思われます。
別質問をとして発言を行ったなら、その時に詳しく述べます。
大変迷惑かけてます。まだまだ常識がないですね、、。これから精進いたします。一応、これがソースの一部なんですけど、、。
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim strFileNAM As String
Dim strExcelSheet As String
Dim MyChart As ChartObject
'ブックのシート名
strExcelSheet = "Sheet1"
Set xlApp = New Excel.Application
Set xlBook = GetObject(strExcelFile, "Excel.Sheet")
Set xlSheet = xlBook.Worksheets("Sheet1")
For i = 1 To intCnt - 1
xlSheet.Cells(0 + i, 11).Value = dblPastCalData(i)
Next i
xlSheet.Cells(1, 3).Value = dblJogen
xlSheet.Cells(2, 7).Value = dblKagen
xlSheet.Cells(1, 15).Value = dblCalData
'絶対値を計算
dblMemoriVAL = dblABSMax(dblPastCalData, intCnt - 1)
Set MyChart = xlSheet.ChartObjects("グラフ 1")
With MyChart.Chart
.Axes(xlValue).MaximumScale = dblMemoriVAL
.Axes(xlValue).MinimumScale = -(dblMemoriVAL)
End With
xlSheet.Parent.Windows(1).Visible = True
'グラフをコピー
xlApp.Worksheets(1).ChartObjects("グラフ 1").Copy
'クリップボードから貼り付け
frmComGraph.Picture1.Picture = Clipboard.GetData
'ファイル名を指定
strFileNAM = strTstKoMoku & lngNO & strCheck & ".bmp"
frmComGraph.Picture1.Refresh
Call SavePicture(frmComGraph.Picture1.Image, "C:\Documents and Settings\Graph\デスクトップ\GraphVB\" + strFileNAM)
No.5
- 回答日時:
エクセルのグラフの操作コードを記述してるのは、エクセルVBAに記述してますか?
それともVB側?
もしVB側であればActiveSheetの前に、ブックやエクセルアプリケーションを指定しなければなりませんよ。
とりあえず、さっきのコードはどちら側に記述したのでしょうか?
No.4
- 回答日時:
んー、、なんだか出来ないんですよね。EXCELの不具合かと、、ってヘルプで見たんですけど、、でもそれってEXCEL4.0の話かも、、。
No.3
- 回答日時:
ごめんなさい
xlCategoryをどのように使用しているかがわかりません。
あと一度の書込みに、お礼と補足をまとめた方がいいですよ。
いざ何か書きたい時に、書けなくなってしまいますよ。
そうですね、私も追記が出来なくてたまに困っていました。私のしたかったことは
ActiveSheet.ChartObjects("グラフ 1").Activate
With ActiveChart.Axes(xlCategory)
.MinimumScale = 1 '最小
.MaximumScale = 9 '最大
.MajorUnit = 4 '目盛間隔
End With
という処理でした、、。またまた言葉不足でスミマセン。これって、やっぱり出来ないものなんですか?
No.2
- 回答日時:
あけましておめでとうございます。
ごめんなさい。
以前に回答したつもりが、どうやら決定ボタンを押し忘れていたようで、回答されていないことに今気が付きました。
手後れでしょうか?
ActiveSheet.ChartObjects("グラフ 1").Activate
With ActiveChart.Axes(xlValue)
.MinimumScale = 1 '最小
.MaximumScale = 9 '最大
.MajorUnit = 4 '目盛間隔
End With
この回答への補足
いろいろ調べたところ xlCategoryの方を変えられれば私のしたいことは実現できそうなんです。でもEXCElの不具合?で出来なそうなんですが、これって出来るんですかね??
補足日時:2002/01/07 16:34あけましておめでとうございます。なんだか、あきらめかけていたところです、、。TAGOSAKU7さんの返事で、またやる気が出てきました!
No.1
- 回答日時:
ChartAreaだったかな?未検証です。
その中にいろいろ情報が入ってると思ったけど・・・
ちがったら、マクロを記録して行いたい処理を記憶させて、コードを見たらなんとなくわかると思いますが・・・
この回答への補足
すみません、ChratAreaの使い方を教えて下さい。ちなみにマクロは教えてもらってちょっと試してみたんですけど、意味不明でした。、、、私には、、。
補足日時:2001/12/20 09:37あひさしぶりです。毎度お世話になっているHUKAHIREです。こうも寒いと温かいものが恋しくなりますね。フカヒレスープ飲みたいなー。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA グラフの存在の判定について
-
【VBA】Excel等高線グラフの...
-
グラフを「似ている」順に並べ...
-
Excel VBAで、グラフを特定のセ...
-
沢山のフォルダにあるファイル...
-
エクセルでファイルの最終更新...
-
TXTファイルを上書き保存する前...
-
Windowsファイルエクスプローラ...
-
パソコン SDカードが読み込め...
-
Word・Excelの「Ctrl+Y」につい...
-
誤ってZIPファイルを上書きして...
-
マイドキュメントのフォルダの...
-
N88 BASICで作成されたEXEのソ...
-
マイクラでコマンド使いたいの...
-
PDFを結合すると語句検索できな...
-
onedriveで同期解除をしたら、...
-
サブディレクトリも含めて最新...
-
フォルダ内のファイルを取得し...
-
上書きしてしまったtxtファイル...
-
vlan internal allocation poli...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでグラフをクリックし...
-
グラフを「似ている」順に並べ...
-
VBA グラフの存在の判定について
-
論文に載せるグラフを作成したい
-
【VBA】Excel等高線グラフの...
-
Excel VBAで、グラフを特定のセ...
-
C言語によるハノイの塔のプログ...
-
グラフの元のデータを消しても...
-
C#のChartで目盛線をグラフの前...
-
gnuplotで関数を途切れさせるに...
-
c++での3次元グラフの生成
-
Excel VBAでグラフ作成。A,C列...
-
Excel VBAでのグラフ
-
グラフの色を数値で変わるように!
-
Office Web Components(OWC)で...
-
Google Chart APIでランキング表示
-
c言語 正負の値それぞれでの最...
-
excelのグラフをLaTexに挿入す...
-
HP上にあるグラフの再現
-
Excel VBA グラフ ChartType に...
おすすめ情報