Excel VBA質問箱 IV

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

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


74671 / 76732 ←次へ | 前へ→

【6523】Re:グラフ作成のマクロ
回答  Jaka  - 03/7/7(月) 9:44 -

引用なし
パスワード
   おはようございます。
提示されたコードをぐちゃぐちゃ直してみたけれど..。
実際コード見ただけで、どの様にしたいのか解りませんので合っているとは思えませんけど。

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

0 hits

【6494】グラフ作成のマクロ しほ 03/7/4(金) 10:50 質問
【6497】Re:グラフ作成のマクロ Jaka 03/7/4(金) 12:08 発言
【6503】Re:グラフ作成のマクロ しほ 03/7/4(金) 16:08 質問
【6523】Re:グラフ作成のマクロ Jaka 03/7/7(月) 9:44 回答
【6524】それと..。 Jaka 03/7/7(月) 9:46 発言
【6553】Re:グラフ作成のマクロ しほ 03/7/8(火) 16:37 お礼

74671 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free