こんにちわ。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で質問しましょう!
似たような質問が見つかりました
- PowerPoint(パワーポイント) ExcelのグラフをPowerPointに貼り付けした際にデータテーブルの小数点以下を削除したいです 2 2023/02/28 19:46
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
- 情報処理技術者・Microsoft認定資格 MOS試験Excelエキスパートを受けようか考えています。 Excelは仕事で使用。 関数は入れ子含 2 2022/12/18 10:05
- Excel(エクセル) excelの列幅高さが勝手に変わる(特定のPCだけ) 8 2022/07/14 16:51
- Excel(エクセル) Excelの複数人での参照について 2 2022/06/01 13:38
- Excel(エクセル) エクセルのイベントVBAを複数のシートで動かしたい 1 2022/12/07 16:55
- Excel(エクセル) Excelで日付のグラフへの表示 2 2022/04/15 11:04
- 工学 制御工学の問題です。 3 2023/01/23 22:32
- システム CSVファイルのマッピング処理の省力化 1 2022/11/24 00:01
- Excel(エクセル) Excel グラフのプロットエリアについて 2 2022/08/26 18:12
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
C#のChartで目盛線をグラフの前...
-
VBA グラフの存在の判定について
-
Excel VBAで、グラフを特定のセ...
-
matlabのy軸を2つ利用したグラ...
-
グラフを「似ている」順に並べ...
-
【VBA】Excel等高線グラフの...
-
グラフの色を数値で変わるように!
-
論文に載せるグラフを作成したい
-
onedriveで同期解除をしたら、...
-
vlan internal allocation poli...
-
teratarmでコマンド入力すると...
-
WindowsからSSHでサーバーにあ...
-
USB内のフォルダが「ファイル」...
-
共有しているファイルを削除し...
-
Excel VBAでほかのアプリケーシ...
-
パワーポイントのデータを誤っ...
-
ls であるファイル以外を表示し...
-
TXTファイルを上書き保存する前...
-
YAHAMA RTXシリーズのコマンド...
-
マイドキュメントのフォルダの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA グラフの存在の判定について
-
グラフの元のデータを消しても...
-
論文に載せるグラフを作成したい
-
Mathematicaでグラフの非表示を...
-
レガシーASPでのグラフ作成...
-
【VBA】Excel等高線グラフの...
-
gnuplotで関数を途切れさせるに...
-
MFCプログラミング
-
グラフを「似ている」順に並べ...
-
VB6(SP5)で、グラフをカラー印...
-
Excelマクロでグラフの縦軸目盛...
-
ASPを使用してWeb上でのグラフ...
-
excelのグラフをLaTexに挿入す...
-
DirectShowでフィルタの削除
-
Excel VBAでグラフ作成。A,C列...
-
Excel VBAでグラフをクリックし...
-
Excel VBAで、グラフを特定のセ...
-
C言語によるハノイの塔のプログ...
-
JAVAといってもいろいろあるの...
-
積み上げ棒グラフの項目名を細...
おすすめ情報