Excel VBA質問箱 IV

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

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


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

74689 / 76732

←次へ　｜　前へ→


	【6503】Re:グラフ作成のマクロ

しほ - 03/7/4(金) 16:08 -


	引用なし

	パスワード

▼Jaka さん：
>実際、マクロ記録した物でもエラーになっちゃって動かないものもあります。
そういうものなのですか。今までそういう事はなかったので　がっかり。。。

>他のパターンとして、グラフが既にあるのに同じ名前で作ろうとしたりするとエラーにな
>る実行エラーなどもあります。
グラフは消してから実行していますので、そういうことはないと思います。

データは横に日付、縦に数値が４種類あります。
日付ごとに数値を棒グラフと折れ線グラフで表現したいのですが、
うまくいきません。（マクロでなければOKなんですが。）

ちなみにコードですが。。。
**************
Sub グラフ()

　　Range("F21:G21").Select
　　Charts.Add
　　ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:="2 軸上の折れ線と縦棒"
　　ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A10:X14"), PlotBy _
　　　　:=xlRows
　　ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
　　With ActiveChart
　　　　.HasTitle = True
　　　　.ChartTitle.Characters.Text = "グラフ練習"
　　　　.Axes(xlCategory, xlPrimary).HasTitle = False
　　　　.Axes(xlValue, xlPrimary).HasTitle = False
　　　　.Axes(xlCategory, xlSecondary).HasTitle = False
　　　　.Axes(xlValue, xlSecondary).HasTitle = False
　　End With
　　ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowNone, LegendKey:=False
　　ActiveChart.HasDataTable = True
　　ActiveChart.DataTable.ShowLegendKey = True
　　ActiveSheet.Shapes("グラフ 14").ScaleWidth 1.49, msoFalse, _
　　　　msoScaleFromBottomRight
　　ActiveSheet.Shapes("グラフ 14").ScaleHeight 1.49, msoFalse, _
　　　　msoScaleFromBottomRight
　　ActiveSheet.Shapes("グラフ 14").ScaleWidth 1.3, msoFalse, msoScaleFromTopLeft
　　ActiveSheet.Shapes("グラフ 14").ScaleHeight 1.32, msoFalse, msoScaleFromTopLeft
　　"データテーブル".Comment.Shape.Select　←★ここでコンパイルエラー
　　Selection.AutoScaleFont = False
　　With Selection.Font
　　　　.Name = "ＭＳＰゴシック"
　　　　.FontStyle = "標準"
　　　　.Size = 8
　　　　.Strikethrough = False
　　　　.Superscript = False
　　　　.Subscript = False
　　　　.OutlineFont = False
　　　　.Shadow = False
　　　　.Underline = xlUnderlineStyleNone
　　　　.ColorIndex = xlAutomatic
　　　　.Background = xlAutomatic
　　End With
　　ActiveChart.ChartTitle.Select
　　Selection.AutoScaleFont = False
　　With Selection.Font
　　　　.Name = "ＭＳＰゴシック"
　　　　.FontStyle = "標準"
　　　　.Size = 20
　　　　.Strikethrough = False
　　　　.Superscript = False
　　　　.Subscript = False
　　　　.OutlineFont = False
　　　　.Shadow = False
　　　　.Underline = xlUnderlineStyleNone
　　　　.ColorIndex = xlAutomatic
　　　　.Background = xlAutomatic
　　End With
End Sub
***********

2 hits

▼

【6494】グラフ作成のマクロ しほ 03/7/4(金) 10:50