Excel VBA質問箱 IV

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

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


28343 / 76732 ←次へ | 前へ→

【53688】外部エクセルファイルの特定のグラフからパーセントの値を取得する方法
質問  かおり  - 08/2/1(金) 14:47 -

引用なし
パスワード
   VBA超初心者です。

特定のフォルダに入っている複数のエクセルファイル内の、特定のシートには複数のグラフが存在しています。
そのグラフは円グラフで、パーセント表示に設定されています。

仮に

特定のフォルダへのパス:「C:\Documents and Settings\Macro」
格納されているエクセルファイル(参照先):A.xls、B.xls、C.xls、…
シート名(全てのエクセルファイルに共通):「グラフ」
情報を取得したいグラフ名:「1.」(グラフの種類は円グラフ、パーセント表示)

だとして、カレントexcelファイルに、参照元の円グラフ「1.」で表示されているパーセントの値のみを分類別にVBAで取得することはできますでしょうか?
たとえば、円グラフの区分「4月」が10%という表示だった場合、「10」という値を取得したいと考えています。
区分が「4月」「5月」「6月」「7月」とあって、それぞれ全ての%の値を取得したいと考えています。

見よう見まねでVBを書いてみましたが、
どうしても「グラフのパーセントの値を取得して」コードの書き方が分かりません。


Sub パーセントの値取得()

Dim MyPath As String
Dim MyName As String
Dim OpenFileName As String
Dim n As Long
 
 MyPath = "C:\Documents and Settings\Macro" 'xlsの格納先フォルダ名の指定
 MyName = Dir(MyPath & "\*.xls") 'xlsファイルすべてを選択対象に
 Do While MyName <> "" 'フォルダ内の全てのファイルを参照するまで処理
  OpenFileName = MyPath & "\" & MyName '参照元のエクセルファイルのフルパス
  n = FreeFile 'ファイル番号の値を宣言
  Open OpenFileName For Input As #n '参照先ファイルを開く
  
    'ここにシート"グラフ"の特定のグラフ「1.」を選択し、
    '表示されているパーセンテージの値を取得するコードが書きたい

  Close #n 'ファイルを閉じる
    
    'ここにカレントエクセルファイルの指定のセル内に、
    '取得した値を入れるコードを書く

  MyName = Dir '参照先ファイルをnullに戻す
 Loop ’処理を繰り返す
End Sub


(見よう見まねでVBを書いているのでファイル参照のコードも間違っているのかもしれません。。。すみません)

グラフの表示のパーセントから直接値を取得することは不可能なのでしょうか?
自分なりにいろいろ検索してみましたが、グラフの値を直接取得するコードが見当たりませんでした。

かなり説明不足なのかもしれませんが、ご教授のほどよろしくお願いいたします。

1 hits

【53688】外部エクセルファイルの特定のグラフからパーセントの値を取得する方法 かおり 08/2/1(金) 14:47 質問
【53691】Re:外部エクセルファイルの特定のグラフか... りん 08/2/1(金) 19:51 発言
【53718】Re:外部エクセルファイルの特定のグラフか... かおり 08/2/4(月) 17:00 質問
【53724】Re:外部エクセルファイルの特定のグラフか... りん 08/2/5(火) 8:20 回答
【53740】Re:外部エクセルファイルの特定のグラフか... かおり 08/2/5(火) 14:28 お礼

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