縦にずらっと並んだ1項目しかない棒グラフ(棒が1本だけ立っている)
を複製しては参照先を一つづつずらすという作業をしていたのですがあまりに不毛すぎて苦労しています
(そもそも棒グラフの範囲を横に増やせば簡単に棒を増やせるのですが
棒一本一本を動かして自由に配置したいとのことでこういうやり方になっています
完成は16*8*5シートの全てのセルに対して1つの棒グラフがついた形ということになります)
縦16*5シートは作ってあるのですがこれをそれぞれのシートで*8しなくてはなりません
覚えたてのVBAで楽にできないかと色々とこねくりまわしてみたのですが
「複数選択したグラフ一つ一つについて参照先を取得→変更する」というのをどう実現すればよいのかわかりません。
今後もシートは増えるということなので、省力化できればとても楽になります
Excelのバージョンは2007ですが2003を使用することもできます
宜しくお願いします。
No.1ベストアンサー
- 回答日時:
ブック内全てのシートにグラフを複製するのですか?
言い換えれば、ブック内にはそれ以外のシートは存在していませんか?
グラフを複製するシートの名前は特定できますか?
取りあえず同一シート内でグラフ増殖の例です。
元のグラフが16個作成済みで同じ列に縦に並んでいると仮定しています。
Dim cht As ChartObject
Dim i As Long
For Each cht In ActiveSheet.ChartObjects
For i = 1 To 7
With cht.Duplicate
'--グラフが同一列縦に並んでいる場合
.Left = Range(cht.TopLeftCell.Address).offset(, i).Left
.Top = cht.Top
'--グラフが同一行横に並んでいる場合
'.Left = cht.Left
'.Top = Range(cht.TopLeftCell.Address).offset(i).Top
With .Chart.SeriesCollection(1)
If Range(Split(.Formula, ",")(1)).Row = Range(Split(.Formula, ",")(2)).Row Then
.XValues = Range(Split(.Formula, ",")(1)).offset(i)
.values = Range(Split(.Formula, ",")(2)).offset(i)
Else
.XValues = Range(Split(.Formula, ",")(1)).offset(, i)
.values = Range(Split(.Formula, ",")(2)).offset(, i)
End If
End With
End With
Next i
Next
有難うございます、なかなかお礼をする余裕が作れませんでした、すみません
今回の作業についてはブック内のものを全て複製していくのでこのマクロで良さそうです
複数選択したグラフのうちの1つ1つをどうやって対象にとるのかばかり考えていましたが
全部やってしまうという手もあったわけですね。
ちょっとしたデザイン変更の度に全て作り直す/全ての設定を変えるのが非常にめんどうだったので大変に助かります
次の変更があった時から試してみようと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
歩いた自慢大会
「めちゃくちゃ歩いたエピソード」を教えてください。 長時間でも長距離でも結構です。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
EXCELでコピーしたグラフのデータ範囲変更について
Excel(エクセル)
-
エクセルのシートをコピーしてもグラフは古い所を参照
財務・会計・経理
-
エクセルでグラフの元データの相対参照ってできますか?
Excel(エクセル)
-
-
4
エクセル2010 グラフの軸の最大値最小値をセル参照する
Excel(エクセル)
-
5
エクセルの散布図のX軸に文字を表示したいのですが、どうしたらよいのでしょうか?
Excel(エクセル)
-
6
Excel:別シートにグラフを貼り付けたときにデータを反映させたい
Excel(エクセル)
-
7
エクセルグラフの一括設定。
Excel(エクセル)
-
8
エクセルのセル参照、一つずつ参照セルをずらしていきたい
Excel(エクセル)
-
9
エクセルで上付き,下付き文字を凡例に入れる方法を教えて下さい。
Excel(エクセル)
-
10
たくさん作った同じ設定のグラフを一括して変更したい
Excel(エクセル)
-
11
エクセルで1列に500行並んだデータを5列毎に改行
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル
-
負のデータが含まれている場合...
-
Excelグラフの縦軸を文字列で表示
-
ワードのグラフ
-
エクセルグラフで任意の区分線...
-
Excel2013 棒グラフのプロット...
-
エクセルの円グラフで、データ...
-
エクセルグラフ~数値軸にマイ...
-
エクセルでグラフの休日表示
-
パワーポイントのグラフに標準...
-
Excelグラフについて
-
エクセルで複数のグラフの参照...
-
エクセルでのグラフ作成
-
Excelで数値→文字列変換で指数...
-
テキストボックス内の文字のふ...
-
Excelで行ごとコピー、同じ行を...
-
Excelの関数について、特定の文...
-
エクセルでグラフタイトルが折...
-
エクセル 指定した文字列を含...
-
【Excel】貼り付けた画像がいつ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル
-
負のデータが含まれている場合...
-
Excelグラフの縦軸を文字列で表示
-
パワーポイントのグラフに標準...
-
ワードのグラフ
-
エクセルの円グラフで、データ...
-
エクセルグラフで任意の区分線...
-
エクセルでグラフの休日表示
-
エクセルで複数のグラフの参照...
-
Excelの棒グラフが左寄せになり...
-
Excel 棒グラフに「最大値-最小...
-
エクセル、グラフの軸の色を変...
-
棒グラフの隙間をつめたい!!!
-
エクセルで、3Dの奥行きのあ...
-
グラフに標準偏差をつける方法...
-
Excelグラフについて
-
Excel2013 棒グラフで色の...
-
エクセルで作ったグラフの背景...
-
エクセル棒グラフ(同じ項目で...
-
エクセルで山型分布図を作れますか
おすすめ情報