Excel VBA質問箱 IV

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

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


62726 / 76732 ←次へ | 前へ→

【18608】グラフの大きさの変更
質問  カド  - 04/10/1(金) 13:02 -

引用なし
パスワード
   過去ログに同じ質問がありましたが、うまくいきません。
改めて私の状況において、質問させてください。

以下は、データ範囲を選択して、グラフを描き、グラフの大きさを変更した。
ことを記録したマクロです。

これを実行すると、2度目は("グラフ 61")が無いために、指定した名前のアイテムが
無いというエラーが出ます。

どうすれば、マクロでグラフを描いて大きさも変更することが出来るのでしょうか?

Sub yyy()

  Range("BB6:CF6,BB9:CF11").Select
  Range("BB9").Activate
  Charts.Add
  ActiveChart.ChartType = xl3DColumnStacked
  ActiveChart.SetSourceData Source:=Sheets("新表").Range("BB6:CF6,BB9:CF11")
  ActiveChart.Location Where:=xlLocationAsObject, Name:="新表"
  ActiveChart.Walls.Select
  With ActiveChart
    .Elevation = 15
    .Perspective = 30
    .Rotation = 20
    .RightAngleAxes = True
    .HeightPercent = 100
    .AutoScaling = True
  End With
  ActiveChart.ChartArea.Select
  ActiveSheet.Shapes("グラフ 61").ScaleWidth 1.38, msoFalse, _
    msoScaleFromBottomRight
  ActiveSheet.Shapes("グラフ 61").ScaleHeight 0.53, msoFalse, _
    msoScaleFromBottomRight
End Sub

2 hits

【18608】グラフの大きさの変更 カド 04/10/1(金) 13:02 質問
【18609】Re:グラフの大きさの変更 Jaka 04/10/1(金) 13:55 回答
【18612】Re:グラフの大きさの変更 カド 04/10/1(金) 15:09 お礼
【18616】Re:グラフの大きさの変更 Kein 04/10/1(金) 15:49 回答
【18618】Re:グラフの大きさの変更 カド 04/10/1(金) 16:21 お礼
【18610】Re:グラフの大きさの変更 Kein 04/10/1(金) 14:01 回答
【18613】Re:グラフの大きさの変更 カド 04/10/1(金) 15:15 お礼

62726 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free