
約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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELでグラフを作るとき、縦軸...
-
エクセルの縦軸(Y軸)が不均等...
-
Excelでx軸とy軸を設定して図を...
-
Excel:別シートにグラフを貼り...
-
エクセルのグラフ作成で軸を等...
-
Excelグラフの有効数字の統一が...
-
エクセルで、極座表のグラフ描...
-
EXCELのプロットエリアサイズの...
-
Excelの折れ線グラフについて教...
-
エクセルで別のシートにグラフ...
-
Eecelデータのグラフ化でデータ...
-
エラーバーの終端の線を長くする
-
エクセル グラフの”データーテ...
-
円グラフで総数から上位10項目...
-
エクセルの円グラフをグラフエ...
-
EXCELで複数の円グラフを一度に...
-
エクセルの円を5等分する方法
-
Excelで折れ線グラフ 原点をど...
-
エクセルで折れ線と散布図を同...
-
Excel:補助付円グラフがどうし...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのグラフ作成で軸を等...
-
Excel:別シートにグラフを貼り...
-
EXCELでグラフを作るとき、縦軸...
-
エクセルの縦軸(Y軸)が不均等...
-
Excelでx軸とy軸を設定して図を...
-
エクセルで折れ線グラフ(散布...
-
散布図を縦に2個並べて出力したい
-
エクセルで、極座表のグラフ描...
-
Excelグラフの有効数字の統一が...
-
エクセルで作ったグラフの右側...
-
エクセルの対数グラフのエラー
-
エクセルで折れ線と散布図を同...
-
エクセルの円を5等分する方法
-
エクセル グラフはあるけれど...
-
ExcelでIF関数によるグラフの表...
-
ExcelのグラフをPowerPointに貼...
-
対数目盛を使用時のグラフについて
-
エクセルのグラフの1点の色を変...
-
エクセル グラフの”データーテ...
-
2019エクセル折れ線グラフで、Y...
おすすめ情報