excel2010の
VBA利用者です。
グラフが書いてあって(種類は3D等高線グラフ)、
その元になるデータ範囲は
例えば
ActiveChart.SetSourceData Source:=Range("Sheet1!$A$1:$D$10")
のようにすれば、シート1のRange("A1:D10")の範囲が設定できます。
では、
これの 逆に
設定でなくて、取得が出来ませんでしょうか?
つまり
上記の場合でしたら、範囲"A1:D10"を取得して、変数に代入したいのです。
もし、範囲としての取得が難しいならば、最低限
グラフの現在のデータ範囲の矩形範囲の縦横の、行数、列数の
取得だけでもなんとかしたいのですが、
何か方法はないでしょうか?
縦横数百セルの大き目の範囲を相手にしたいので、
Formulaプロパティで系列ごとに取得していく方法では煩雑になるので
何とかもっと
簡便な方法が無いものかと思っております
御教授のほど、よろしくお願いいたします。
No.4ベストアンサー
- 回答日時:
Sub test()
Dim filed() As String
Dim ret() As String
Dim v() As String
Dim s() As String
Dim cnt As Long
Dim cx As Long
Dim ub As Long
Dim n As Long
Dim i As Long
Dim j As Long
Dim k As Long
Dim buf
If ActiveChart Is Nothing Then
MsgBox "グラフを選択して実行"
Exit Sub
End If
'項目名セット
filed() = Split("name category_labels values order size")
With ActiveChart
'BubbleChartの時
If (.ChartType = xlBubble) Or (.ChartType = xlBubble3DEffect) Then
cx = 4
Else
cx = 3
End If
'アドレス文字格納配列サイズ決定
cnt = .SeriesCollection.Count
ReDim ret(0 To cnt, 0 To cx)
For i = 0 To cx
ret(0, i) = filed(i)
Next
'系列をLoop
For i = 1 To cnt
v = Split(.SeriesCollection(i).Formula, ",")
ub = UBound(v)
'右端の")"を除外
v(ub) = Left$(v(ub), Len(v(ub)) - 1)
'左端の"=SERIES("除外
ret(i, 0) = Mid$(v(0), 9)
n = 1
For j = 1 To cx
'隔範囲のアドレスを考慮
If Left$(v(n), 1) = "(" Then
ReDim s(1 To ub) As String
For k = 1 To ub
s(k) = v(n)
n = n + 1
If Right$(s(k), 1) = ")" Then Exit For
Next
ReDim Preserve s(1 To k)
ret(i, j) = Join(s, ",")
Else
ret(i, j) = v(n)
n = n + 1
End If
Next
buf = Application.Index(ret, i + 1, 0)
Debug.Print "系列 " & i, Join(buf, ",")
Next
End With
'新規シートに書き出す時。
'Sheets.Add.Range("A1").Resize(cnt + 1, cx + 1).Value = ret
Erase s, ret
End Sub
こんな感じのは昔書いたことありますが
とにかくデータ範囲をRangeに取得するだけなら
Formula文字列を整理すれば簡単そう。
Sub try2()
Dim r As Range
If Not ActiveChart Is Nothing Then
Call GetChartSourceRange(ActiveChart, r)
Application.Goto r
MsgBox r.Address(external:=True)
End If
End Sub
'-----------------------------------------------------------
Sub GetChartSourceRange(ByRef c As Chart, ByRef ret As Range)
Dim r() As Range
Dim s As String
Dim n As Long
Dim i As Long
n = c.SeriesCollection.Count
ReDim r(1 To n)
For i = 1 To n
s = Mid$(c.SeriesCollection(i).Formula, 8)
s = Replace(s, ",,", ",")
s = Replace(s, "," & i & ",", ",")
s = Replace(s, "," & i & ")", ")")
s = "(" & Mid$(s, InStr(s, ",") + 1)
Set r(i) = Range(s)
Next
Set ret = r(1)
For i = 2 To n
Set ret = Union(ret, r(i))
Next
Erase r
End Sub
あらゆるケースに対応できるわけではないですけれども。
end-u様
二度目のご回答、感謝いたします
丁寧に記述いただきまして恐縮です
勉強してみます。
ベストアンサーとさせていただきます。
No.3
- 回答日時:
>グラフの現在のデータ範囲の矩形範囲
あなたが作成しようとしているグラフは確かに矩形範囲ですが、エクセルでは飛び飛びのセル範囲からも、また系列ごとに個数が違うグラフも描けますので、「全体としての元データ範囲」を取得する方法はありません。
とりあえず簡単には
activechart.seriescollection.count
と
ubound(activechart.seriescollection(1).xvalues)
end sub
といったところと思います。
早速のご回答を
どうも 有難うございます。
やはり、結構、難解にならざるを得ないのですね・・・
私の頭で理解するのに時間がかかりそうなので
コードを勉強させていただきますね。
No.2
- 回答日時:
残念ながら、
>Formulaプロパティで系列ごとに取得していく方法
です。Range型変数に代入するところはおまけです。
当方も最近、同様の事を思っておりました。もっと簡便な方法があるなら、是非知りたいです。
Sub test()
Dim mychartObj As ChartObject
Dim mySeries As Series
Dim dataRange As Range
Set mychartObj = ActiveSheet.ChartObjects(1)
For Each mySeries In mychartObj.Chart.SeriesCollection
Debug.Print Split(Split(mySeries.Formula, ",")(2), "!")(1)
Set dataRange = Worksheets(Split(Split(mySeries.Formula, ",")(2), "!")(0)).Range(Split(Split(mySeries.Formula, ",")(2), "!")(1))
Debug.Print dataRange.Parent.Name, dataRange.Address
Next mySeries
End Sub
縦横の行数の取得なら、上記コードで
Debug.Print UBound(mySeries.XValues), UBound(mySeries.Values)
でできますが、こういう事で良いのでしょうか。
早速のご回答を
どうも 有難うございます。
やはり、結構、難解にならざるを得ないのですね・・・
私の頭で理解するのに時間がかかりそうなので
コードを勉強させていただきますね。
No.1
- 回答日時:
とりあえずActiveChartに対して処理するサンプル。
DataObjectを使う為、VBE-[ツール]-[参照設定]で
「Microsoft Forms 2.0 Object Library」にチェックする必要があります。
Sub try()
'■参照設定:Microsoft Forms 2.0 Object Library
Dim r As Range
If Not ActiveChart Is Nothing Then
SendKeys "^c{esc}"
Application.Dialogs(xlDialogChartSourceData).Show
On Error Resume Next
With New DataObject
.GetFromClipboard
Set r = Range(.GetText)
End With
On Error GoTo 0
If Not r Is Nothing Then MsgBox r.Address(external:=True)
End If
End Sub
SendKeys使ってますから邪道で危ういし。
それに『データの選択』ダイアログに表示されない複雑なSourceDataの場合は取得できません。
素直に系列をLoopして取得したほうがスマートっぽく見えます。
早速のご回答を
どうも 有難うございます。
やはり、結構、難解にならざるを得ないのですね・・・
私の頭で理解するのに時間がかかりそうなので
コードを勉強させていただきますね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vba 等間隔の列に対しての計算 6 2022/05/17 20:15
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Excel(エクセル) 単価シートから単価をエクセル関数で自動取得する方法 1 2023/07/02 22:00
- Excel(エクセル) EXCELのグラフを画像(JPG形式)で保存、通常実行がうまく行かない。ステップインはうまく行く 3 2022/08/30 12:06
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/09 14:54
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- その他(プログラミング・Web制作) pythonでクラスで複数のメソッドを利用する方法 2 2022/04/15 04:17
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
グラフの範囲指定をVBAで可変にしたい
その他(Microsoft Office)
-
[VBA]グラフの要素が参照しているセル範囲の取得
Excel(エクセル)
-
エクセルのグラフのデータ系列の順序をVBAで変更する
Excel(エクセル)
-
-
4
EXCEL VBA----離れたセル範囲の指定
Excel(エクセル)
-
5
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
6
<EXCELグラフ>データ取得範囲を最下行にしたい
Visual Basic(VBA)
-
7
EXCELでコピーしたグラフのデータ範囲変更について
Excel(エクセル)
-
8
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
9
グラフの「項目軸ラベルに使用」をVBAで
Visual Basic(VBA)
-
10
VBA 散布図の点の元セルを取得したい
Excel(エクセル)
-
11
Excel(エクセル) VBA プロシージャーをミリ秒で繰り返し実行する方法
Excel(エクセル)
-
12
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
13
エクセルでグラフを作成する際の左右の軸目盛りの合わせ方
Excel(エクセル)
-
14
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
15
Excel VBAでグラフをクリックした時走るイベントありますか?
その他(プログラミング・Web制作)
-
16
エクセルの散布図のX軸に文字を表示したいのですが、どうしたらよいのでしょうか?
Excel(エクセル)
-
17
Excelでエラー(#N/Aなど)値を含む範囲で最大値や最小値をもとめ
その他(Microsoft Office)
-
18
exeファイルの中身を見ることは可能ですか?
フリーソフト
-
19
VBA グラフの存在の判定について
Visual Basic(VBA)
-
20
マクロを実行すると画像がズレてしまいます
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
【スプレッドシート】指定の日...
-
英数字のみ全角から半角に変換
-
【Excel VBA】PDFを作成して,...
-
Excel テーブル内の空白行の削除
-
エクセルでXLOOKUP関数...
-
Microsoft Formsの「個人情報や...
-
マイクロソフト 一時使用コード...
-
Excel2019と365、2021
-
VLOOKUP関数について
-
Microsoft Officeを2台目のPCに...
-
Excelのセルの重複チェックが出...
-
会社PCのメールが更新されない
-
PCを買い換えました。 今使って...
-
office2016のパソコン2台インス...
-
【スプレッドシート】白色のセ...
-
大学のレポート A4で1枚レポー...
-
Excel VBA 日程表からスケジュ...
-
時間の平均値を計算する方法を...
-
Microsoft365で写真をアルバム...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【スプレドシート】IMPORTRANGE...
-
マイクロソフト 一時使用コード...
-
英数字のみ全角から半角に変換
-
Office2021を別のPCにインスト...
-
Microsoft Formsの「個人情報や...
-
officeビジネス型のワードやエ...
-
会社PCのメールが更新されない
-
【スプレッドシート】指定の日...
-
Microsoft Officeを2台目のPCに...
-
何このステータスバー
-
2つのシートの一致する行のセ...
-
会社のTeamsのことで相談です。...
-
エクセルにリンクされるのをし...
-
Windows 11で、IME言語バー(IM...
-
office2010とoffice365の共存で...
-
Microsoftのパソコンです。 エ...
-
エクセルでXLOOKUP関数...
-
Excel関数について質問ですm(__)m
-
VBA
-
自分の専門分野の仕事。初見で...
おすすめ情報