Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

69125 / 76734

←次へ　｜　前へ→


	【12129】Re:グラフの選択

こうちゃん

- 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

＃タイミングでどうも私が答えるようになるのは縁があるのか？（？_？）

1 hits

▼

【12128】グラフの選択 ぽんぽん 04/3/24(水) 16:04