| |
おはようございます。
提示されたコードをぐちゃぐちゃ直してみたけれど．．。
実際コード見ただけで、どの様にしたいのか解りませんので合っているとは思えませんけど。
Sub グラフ2()
Application.ScreenUpdating = False
Charts.Add
With ActiveChart 'グラフシート
.SetSourceData Source:=Sheets("Sheet1").Range("A10:X14"), PlotBy:=xlRows
.Location Where:=xlLocationAsObject, Name:="Sheet1"
End With
With ActiveChart 'Sheet1のグラフ
.ApplyCustomType ChartType:=xlBuiltIn, TypeName:="2 軸上の折れ線と縦棒"
.HasTitle = True
.ChartTitle.Characters.Text = "グラフ練習"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.ApplyDataLabels Type:=xlDataLabelsShowNone, LegendKey:=False
.ChartGroups(1).HasDropLines = True
.HasDataTable = True
.DataTable.ShowLegendKey = True
.DataTable.Font.Size = 8
.ChartTitle.Font.Size = 20
Grf = Mid(.Name, InStr(1, .Name, " ") + 1)
End With
With ActiveSheet.Shapes(Grf)
.ScaleWidth 1.49, msoFalse, msoScaleFromBottomRight
.ScaleHeight 1.49, msoFalse, msoScaleFromBottomRight
.ScaleWidth 1.3, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.32, msoFalse, msoScaleFromTopLeft
End With
Application.ScreenUpdating = True
ThisWorkbook.Activate
ActiveCell.Activate
End
End Sub
因みに下記コードは実行エラーとなっちゃいます上必要なさそうなので、はしょりました。他の部分で必要なさそうな所も消してあります。
> .Axes(xlCategory, xlSecondary).HasTitle = False
> .Axes(xlValue, xlSecondary).HasTitle = False
|
|
