エクセルの学校：全文検索：Hyper Estraier：グラフ

Results of 1 - 1 of about 3686 for グラフ (0.002 sec.)

[[20041224011323]]: #score: 3272; @digest: ab24b487e54d1cf842b42468510af4ba; @id: 10985; @mdate: 2004-12-25T01:49:56Z; @size: 2933; @type: text/plain; #keywords: フ3 (18033), ブ化 (17948), myobj (11701), 20041013115123 (7815), フ"& (7815), 掘… (7815), chartobjects (6945), 発掘 (5178), ラフ (4774), グラ (4290), ・ne (3065), フ2 (2408), フ1 (1892), フを (1882), 近所 (1564), ーペ (1495), 所pg (1378), クテ (1283), にfo (1282), 棒グ (1258), のグ (1196), ィブ (1177), プ名 (1175), トル (1121), アク (1051), 野鮎 (1047), activesheet (1034), 川野 (999), 鮎太 (985), フの (959), タイ (892), ティ (859); 『既成グラフをマクロでアクティブ化する際に』（よし）
どなたか教えて頂けないでしょうか? 棒グラフをエクセルで作成し、マクロでそのグラフを操作するためにアクティブ化する際に、例えば以下のような表現になってます（マクロの記録で確認）。 ActiveSheet.ChartObjects("グラフ3").Activate もとの棒グラフをコピーペーストして5つぐらいグラフを作っておりまして、マクロで5つのグラフを順番にアクティブ化していきたいです。その際にFor分を使って、マクロで順にグラフを操作していきたいのですが、"グラフ3"とい名前がネックになってます。このグラフに自動で付けられた名前（"グラフ3"）をマクロ以外で変えることは可能でしょうか? どなたか教えて頂けると幸いです。 ---- グラフをどのように操作していきたいかはわかりませんが、以下のようなことで対応できますでしょうか。 Sub Test() For Each MyObj In ActiveSheet.ChartObjects MyName = MyObj.Name 'グラフ名の取得 MyObj.Delete 'グラフの削除 Next MyObj End Sub （川野鮎太郎） ---- 前に似たような事があったなぁという事で発掘… [[20041013115123]]『グループ化したグループ名の固定』（ちづ）（ご近所PG） ---- ご回答ありがとうございます。基本的に、マクロ素人なので、（川野鮎太郎）さんと（ご近所PG）さんのアドバイスが完全に理解できてない所もあると思いますが、上手くいきません。 グラフを操作したい内容ですが、5つのグラフのタイトルを順にマクロで自分の好きな名前に変えていきたいです。 5つのグラフは1つのシート内にあります。最初のグラフをコピーペーストして他の4つを作成しているせいかグラフのプロパティ的な名前が勝手に"グラフ3"、"グラフ9"・・・などと付けられています。マクロでグラフのタイトルを順に変えていくには、順にグラフをアクティブ化して順にタイトル変更していけばよいのかなと考えてます。その際にFor文などを使って、順にグラフをアクティブ化→タイトル名変更、と繰り返し処理したいと考えているのですが、グラフの名前が適当な名前ではないため、それができません。例えば、 For i=1 To 5 ActiveSheet.ChartObjects("グラフ"& i).Activate ・・・・・・ Next としたいです。そこでグラフの名前が、"グラフ1""グラフ2""グラフ3"...と自分で変更できないものかな〜と思いまして質問させて頂いた次第です。素人的な質問ですみません。ご回答頂けると幸いです。（よし） ---- カタカナ使うと番号の規則が変になるみたいですね。これでやったら上手くいきました。 Sub Test() i = 1 For Each MyObj In ActiveSheet.ChartObjects MyObj.Name = "Chart " & i i = i + 1 Next MyObj End Sub 全てのグラフのタイトルを変えるのであれば、以下のようなことでも可能のようです。 Sub Test1() For Each MyObj In ActiveSheet.ChartObjects With MyObj.Chart .HasTitle = True .ChartTitle.Caption = "川野鮎太郎" End With Next MyObj End Sub （川野鮎太郎） ---- ご回答ありがとうございます。私の応用がきかないせいか、すぐには理解できてません。 For Each MyObj In ActiveSheet.ChartObjects の使い方についてもっと勉強したいと思います。（よし） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200412/20041224011323.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ