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