縦にずらっと並んだ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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) <スプレッドシート>採用進捗 グラフ作成について 3 2022/10/23 15:52
- Excel(エクセル) Excelグラフについて 1 2023/05/12 16:26
- Excel(エクセル) エクセルの大きなシートでグラフを見つける 4 2022/07/28 10:07
- Excel(エクセル) Excelでグラフの種類「縦棒」でグラフを作ったのですが横軸が同じものが複数に分かれて表示されてしま 1 2022/12/26 22:39
- Excel(エクセル) エクセルのグラフに上下限値の横棒を表示させたい 5 2022/12/12 11:09
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
- Excel(エクセル) エクセル ヒストグラム作成 1 2023/01/02 09:55
- Excel(エクセル) Excel 散布図グラフ 外れ値 セル番地参照方法 4 2022/04/19 18:56
- Excel(エクセル) Excel グラフのプロットエリアについて 2 2022/08/26 18:12
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
EXCELでコピーしたグラフのデータ範囲変更について
Excel(エクセル)
-
エクセルのシートをコピーしてもグラフは古い所を参照
財務・会計・経理
-
エクセルグラフの一括設定。
Excel(エクセル)
-
-
4
エクセル2010 グラフの軸の最大値最小値をセル参照する
Excel(エクセル)
-
5
たくさん作った同じ設定のグラフを一括して変更したい
Excel(エクセル)
-
6
エクセルの散布図のX軸に文字を表示したいのですが、どうしたらよいのでしょうか?
Excel(エクセル)
-
7
エクセルでグラフの元データの相対参照ってできますか?
Excel(エクセル)
-
8
エクセルのセル参照、一つずつ参照セルをずらしていきたい
Excel(エクセル)
-
9
Excel:別シートにグラフを貼り付けたときにデータを反映させたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル
-
負のデータが含まれている場合...
-
エクセルで複数のグラフの参照...
-
Excelの棒グラフが左寄せになり...
-
Excelグラフの縦軸を文字列で表示
-
達成率を円グラフで表示させる方法
-
エクセル グラフ作成 積上縦...
-
ワードのグラフ
-
パワーポイントのグラフに標準...
-
エクセルの円グラフで、データ...
-
印刷されたグラフから値を数値...
-
エクセルで山型分布図を作れますか
-
エクセルの縦棒グラフで月ごと...
-
棒グラフの隙間をつめたい!!!
-
Excel 棒グラフに「最大値-最小...
-
Excel2013 棒グラフで色の...
-
グラフの凡例
-
エクセル2007でグラフを作...
-
Excelで数値→文字列変換で指数...
-
Excelで行ごとコピー、同じ行を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル
-
負のデータが含まれている場合...
-
Excelグラフの縦軸を文字列で表示
-
棒グラフの隙間をつめたい!!!
-
パワーポイントのグラフに標準...
-
エクセルでグラフの休日表示
-
達成率を円グラフで表示させる方法
-
ワードのグラフ
-
エクセルの円グラフで、データ...
-
エクセルグラフで任意の区分線...
-
エクセルで複数のグラフの参照...
-
Excel 棒グラフに「最大値-最小...
-
Excelの棒グラフが左寄せになり...
-
Excel2013 棒グラフで色の...
-
エクセル、グラフの軸の色を変...
-
エクセルで山型分布図を作れますか
-
Excelグラフについて
-
Excelでグラフを作りたいです。...
-
エクセルでグラフエリアが不要...
-
EXCELの棒グラフの影つき処理に...
おすすめ情報