Excel VBA質問箱 IV

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

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


69125 / 76734 ←次へ | 前へ→

【12129】Re:グラフの選択
回答  こうちゃん E-MAIL  - 04/3/24(水) 16:53 -

引用なし
パスワード
   ぽんぽんさん、こんにちは

>アクティブシート中でグラフをアクティブにして下記のコードを実行させる為には
>グラフの名前をどうすればいいのでしょうか?
>よろしくお願いいたします。
>
>Sub グラフの移動G38_大きさ()
>  ActiveSheet.Shapes("グラフ 18").Top = Range("G38").Top
>  ActiveSheet.Shapes("グラフ 18").Left = Range("G38").Left
>  ActiveSheet.Shapes("グラフ 18").Width = Range("G38").Width * 6
>  ActiveSheet.Shapes("グラフ 18").Height = Range("G38").Height * 12
>End Sub

次のコードは、シートのなかにChartがあったら設定の位置、大きさに変更します。
#グラフが2つ以上あってもチェックしていません。
複数シートの処理をする場合は、For Nextの外側にそれなりのループを記述してくださいね。

Sub Test()
  Dim Shp As Object
  For Each Shp In ActiveSheet.Shapes
    If Shp.Type = msoChart Then
      Shp.Top = Range("G38").Top
      Shp.Left = Range("G38").Left
      Shp.Width = Range("G38").Width * 6
      Shp.Height = Range("G38").Height * 12
    End If
  Next
End Sub

#タイミングでどうも私が答えるようになるのは縁があるのか?(?_?)
3 hits

【12128】グラフの選択 ぽんぽん 04/3/24(水) 16:04 質問
【12129】Re:グラフの選択 こうちゃん 04/3/24(水) 16:53 回答
【12130】Re:グラフの選択 ぽんぽん 04/3/24(水) 17:16 質問
【12150】Re:グラフの選択 こうちゃん 04/3/25(木) 9:06 回答

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