Excel VBA質問箱 IV

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

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


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

69499 / 76738

←次へ　｜　前へ→


	【11757】Re:グラフの元データ範囲の取得

ichinose - 04/3/15(月) 21:57 -


	引用なし

	パスワード

>こんばんは。
>>そのときに、グラフについては、その元データのセル範囲を
>>取得して、外部参照なのかどうかをチェックしようと思ったんです。
>違うシートどころか外部参照もあるんですね！！
>作ってみましたので、確認して下さい。
>仕様は、参照しているセルアドレス（外部参照を含む）を新規ブックを作成し、その最左端シートのＡ列に
>記述します。
>リンク切れの場合もかまわず、取得します。
>'==========================================================
>Dim regEx, Match, Matches
>'==========================================================
>Sub test()
>　　Dim cht As Chart
>　　Dim srs As Series
>　　Dim rng As Range
>　　Dim r_add
>　　Set regEx = CreateObject("VBScript.RegExp")
>　　Set cht = ActiveSheet.ChartObjects(1).Chart
>　　Set rng = Nothing
>　　Set bk = Workbooks.add
　　 bk.Windows(1).Visible = false
>　　jdx = 1
>　　For Each srs In cht.SeriesCollection
>　　　　r_add = edit_addr(srs.Formula, srs.PlotOrder)
>　　　　If VarType(r_add) >= vbArray Then
>　　　　　 For idx = LBound(r_add) To UBound(r_add)
>　　　　　　　bk.Worksheets(1).Cells(jdx, 1).Value = r_add(idx)
>　　　　　　　jdx = jdx + 1
>　　　　　　　Next
>　　　　　 End If
>　　　　Next
>　　Set regEx = Nothing
　　 bk.Windows(1).Visible = true
>End Sub
修正してください

0 hits

▼

【11584】グラフの元データ範囲の取得 Excel大好きちゃん 04/3/11(木) 18:51