Excel VBA質問箱 IV

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

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


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

69492 / 76732

←次へ　｜　前へ→


	【11758】Re:グラフの元データ範囲の取得更に訂正

ichinose - 04/3/15(月) 22:22 -


	引用なし

	パスワード

>>こんばんは。
>>>そのときに、グラフについては、その元データのセル範囲を
>>>取得して、外部参照なのかどうかをチェックしようと思ったんです。
>>違うシートどころか外部参照もあるんですね！！
>>作ってみましたので、確認して下さい。
>>仕様は、参照しているセルアドレス（外部参照を含む）を新規ブックを作成し、その最左端シートのＡ列に
>>記述します。
>>リンク切れの場合もかまわず、取得します。
>>'==========================================================
>>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
　　　thisworkbook.activate
>>　　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
>修正してください

3 hits

▼

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