
約150人分のデータを一人分ずつグラフにして、そのグラフを準備したワークシート(エクセル)の特定の位置に貼り付けたいのです。
マクロを使ってグラフをつくるところまではできたのですが、所定の位置に移動させることができないのです。150人分のデータなので一つ一つやっていたらきりがないので、マクロを使ってグラフの位置を移動させたいのですがなかなかできません。マクロを使うといっても、「新しいマクロを記録」→「記録終了」の流れでしか使えません。誰かアドバイスをお願いします。今回初めて教えてgooを利用します。
No.2ベストアンサー
- 回答日時:
ChartオブジェクトにLeftプロパティ、Topプロパティがあると思ってたのですが、ないようですね。
失礼しました。ActiveSheet.Shapes(グラフ名)にはLeftプロパティ、Topプロパティがありますのでこれを使用してください。
ただし、グラフ名は実行するたびに変わるため注意が必要です。
次のコードを最後の「End Sub」の前に追加してみてください。
GName = Mid(ActiveChart.Name, Len(ActiveSheet.Name) + 2)
With ActiveSheet.Shapes(GName)
.Left = 100
.Top = 100
End With
Left,Topの数値は適当に調整してください。
余談ですが、グラフの幅(Width)、高さ(Height)も同様に変えられます。
ありがとうございます。確かにグラフの貼り付け位置が変わりました。少しずつ数値を変更して、ぴたりの位置を見つけたいと思います。大変参考になりました。マクロに少し興味が湧いてきました。
ありがとうございました。分かりやすいアドバイスに感謝いたします。
No.1
- 回答日時:
マクロでグラフをつくれるなら、あとはそのオブジェクトのLeftプロパティ、Topプロパティに位置をセットするだけなのでは?
さっそくの回答ありがとうございます。参考にしてやってみました。ただ当方、マクロについては、プログラムを自分で組むことは無理で、実際にグラフ作成の手順をやってそれを覚えさせる程度しかできません。そこで、Leftプロパティなるものをどこにどのように挿入すればいいのか分からないのです。プログラムを見てみると次のようになっていました。
Range("B7:G9").Select
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("個人票生成シート").Range("B7:G9"), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="個人票生成シート"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "教科"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "偏差値"
End With
End Sub
何か分かることがありましたら、また教えてくださいませんか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) 記録マクロのみでできますか? 7 2022/08/07 20:38
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- Access(アクセス) スキルシートのエクセルの項目に 2 2023/04/04 22:41
- Excel(エクセル) エクセルのマクロ設定 1 2023/04/05 19:37
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルのオートフィルターのしぼりをクリアーしたい 2 2022/12/24 08:36
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/03 11:27
- Excel(エクセル) 【マクロ】プリントスクリーンした画像をエクセルに貼付して印刷したい 6 2022/11/30 20:11
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルのグラフ作成で軸を等...
-
EXCELでグラフを作るとき、縦軸...
-
Excel:別シートにグラフを貼り...
-
エクセルの縦軸(Y軸)が不均等...
-
エクセルで、極座表のグラフ描...
-
Excelでx軸とy軸を設定して図を...
-
散布図を縦に2個並べて出力したい
-
エクセル グラフはあるけれど...
-
x-y座標に10個ぐらいの点をプロ...
-
VBAにてヒストグラム作成にて困...
-
Excelグラフの有効数字の統一が...
-
ExcelでIF関数によるグラフの表...
-
エクセルの円を5等分する方法
-
エクセルの対数グラフのエラー
-
エクセル グラフの”データーテ...
-
エクセルで折れ線グラフ(散布...
-
Excelでグラフを書いたときに、...
-
エクセルで階段グラフの作成に...
-
[エクセル]マクロで、自動的に...
-
excel グラフを一つにまとめる...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのグラフ作成で軸を等...
-
EXCELでグラフを作るとき、縦軸...
-
Excel:別シートにグラフを貼り...
-
エクセルの縦軸(Y軸)が不均等...
-
エクセルの円を5等分する方法
-
Excelでx軸とy軸を設定して図を...
-
エクセルで折れ線と散布図を同...
-
エクセルで折れ線グラフ(散布...
-
エクセルで作ったグラフの右側...
-
エクセルで、極座表のグラフ描...
-
エクセル グラフの”データーテ...
-
Excelグラフの有効数字の統一が...
-
エクセル グラフはあるけれど...
-
散布図を縦に2個並べて出力したい
-
エクセルで式からグラフを作成...
-
ExcelでIF関数によるグラフの表...
-
エクセルの対数グラフのエラー
-
ExcelのグラフをPowerPointに貼...
-
エクセルグラフの項目名を折り...
-
エクセルのグラフの1点の色を変...
おすすめ情報