Excel VBA質問箱 IV

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

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


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

12685 / 76734

←次へ　｜　前へ→


	【69565】新しいシートを作りそこに既存のデータを貼り付けグラフを作りたい

KISS - 11/8/3(水) 7:55 -


	引用なし

	パスワード

始めまして　マクロ初心者です
新しいシート作りそこでグラフを作りたいのですが
マクロを理解していない為上手くいきません
知恵を授けてください　お願いします

Sheets("Sheet1").Select
　　Range("A2:D9630").Select
　　Selection.Copy
　　Sheets.Add
　　ActiveSheet.Paste
　　Charts.Add
　　Set ws = sheetsts.Add　(ここで止ってしまいます）
　　ActiveChart.ApplyCustomType ChartType:=xlBuiltIn, TypeName:="2 軸上の折れ線"
　　ActiveChart.SetSourceData Source:=ws.Range("B2:D50"), PlotBy _
　　　　:=xlColumns
　　ActiveChart.Location Where:=xlLocationAsObject, Name:="ws Name"
　　
　　With ActiveChart
　　　　.HasAxis(xlCategory, xlPrimary) = True
　　　　.HasAxis(xlCategory, xlSecondary) = False
　　　　.HasAxis(xlValue, xlPrimary) = True
　　　　.HasAxis(xlValue, xlSecondary) = True
　　End With
　　ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlCategoryScale
　　ActiveChart.Axes(xlCategory, xlSecondary).CategoryType = xlCategoryScale
　　ActiveChart.HasLegend = True
　　ActiveChart.Legend.Select
　　Selection.Position = xlTop
　　ActiveSheet.Shapes("グラフ 1").IncrementLeft 30.75
　　ActiveSheet.Shapes("グラフ 1").IncrementTop -88.5
　　ActiveSheet.Shapes("グラフ 1").IncrementLeft 9#
　　ActiveSheet.Shapes("グラフ 1").IncrementTop -2.25
　　Windows("湿度管理.xls").SmallScroll Down:=-1
　　ActiveSheet.Shapes("グラフ 1").ScaleWidth 1.38, msoFalse, msoScaleFromTopLeft
　　ActiveSheet.Shapes("グラフ 1").ScaleHeight 1.48, msoFalse, msoScaleFromTopLeft

6 hits

▼

【69565】新しいシートを作りそこに既存のデータを貼り付けグラフを作りたい KISS 11/8/3(水) 7:55

≪