Ｐａｇｅ 710 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼マクロでシート上のグラフの位置を変える Taka 03/2/5(水) 15:09 ┗Re:マクロでシート上のグラフの位置を変える Jaka 03/2/6(木) 13:26 ┗Re:マクロでシート上のグラフの位置を変える Taka 03/2/10(月) 8:34 ─────────────────────────────────────── ■題名 ： マクロでシート上のグラフの位置を変える ■名前 ： Taka ■日付 ： 03/2/5(水) 15:09 -------------------------------------------------------------------------
| マクロで各ファイルの値を集計しグラフを作成します。グラフの作成に関してはマクロの記録を行い、変数に変えたりして“記録”の大部分をそのまま使っています。その中でシート上に作成した円グラフの位置を修正しているのですが、それを記録したコードは ActiveSheet.Shapes("グラフ 1").Left -168.75 ………………といった具合になっています。ただし、汎用的にこの動作を行うために"グラフ 1"の部分を変えたいと思うのですが、どうすればいいのか良くわかりません。 ただ単にシート上に作成されたグラフを正しい位置に移動したいだけなのでほかの表現がないかなぁと思っているのですが、どなたかご意見いただけませんか？ よろしくお願い申し上げます。 |
| こんにちは。 参考になれば良いけど．．．。 まるっきり違うならごめんなさい。 Sub KH250() Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:E14"), PlotBy _ :=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" With ActiveChart .HasTitle = False .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With Graname = Mid(ActiveChart.Name, InStr(1, ActiveChart.Name, " ") + 1) Call 異動(Graname) End Sub Sub 異動(Graname) ActiveSheet.Shapes(Graname).IncrementLeft -36.75 End Sub |
| おはようございます。 私のワケわからない質問に丁寧にお答えいただきましてありがとうございました。 考え方参考になりました。 |