Excel VBA質問箱 IV

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

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


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

74677 / 76738

←次へ　｜　前へ→


	【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