|
▼Jaka さん:
>実際、マクロ記録した物でもエラーになっちゃって動かないものもあります。
そういうものなのですか。今までそういう事はなかったので がっかり。。。
>他のパターンとして、グラフが既にあるのに同じ名前で作ろうとしたりするとエラーにな
>る実行エラーなどもあります。
グラフは消してから実行していますので、そういうことはないと思います。
データは横に日付、縦に数値が4種類あります。
日付ごとに数値を棒グラフと折れ線グラフで表現したいのですが、
うまくいきません。(マクロでなければ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 = "MS Pゴシック"
.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 = "MS Pゴシック"
.FontStyle = "標準"
.Size = 20
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Background = xlAutomatic
End With
End Sub
***********
|
|