下記の変更をVBAで行いたいのですがわかりません。
系列は2つです。
データ系列の中のどれかひとつをダブルクリックします。
あるいは、右クリック-[データ系列の書式設定(O)...]や、データ系列を選択して[書式(O)]-[選択したデータ系列(E)...]や、データ系列を選択して[Ctrl] + [1]キー でも構いません。[データ系列の書式設定]ダイアログボックスを表示させます。
[系列の順序]タブを選択します。
順序を変更したいデータ系列を、[系列の順序(S)]から選択、[上へ移動(U)]や[下へ移動(D)]ボタンで順序を変更してください。
以上、よろしくお願いします。
No.1ベストアンサー
- 回答日時:
こんにちは
たぶん、対話型で、以下のようなものになるように思います。
ただし、散布図はこの範疇ではありません。
'//
Sub ChartSeriesMoving()
Dim objChrt As ChartObject
Dim chSries As FullSeriesCollection
Dim nums As Integer
Dim i, j, nm As String
Set objChrt = ActiveSheet.ChartObjects(1)
Set chSries = objChrt.Chart.FullSeriesCollection
nums = chSries.Count
START:
i = Application.InputBox("系列の順番の数字を入れてください。(左/上から" & nums & "までです.)")
If VarType(i) = vbBoolean Then Exit Sub
If Val(nums) < i Then MsgBox "数字が系列の数より多いです。", vbExclamation: Exit Sub
nm = chSries(i).Name
chSries(i).Select
j = Application.InputBox(nm & "を何番目に写しますか?左/上から(左/上から" & nums & "までです.)")
If VarType(j) = vbBoolean Then Exit Sub
chSries(i).PlotOrder = j
Application.ScreenUpdating = True
Application.Wait Now + TimeSerial(0, 0, 3)
If MsgBox("続けますか(Y), 終了しますか(N)", vbYesNo) = vbYes Then
GoTo START
End If
End Sub
なお、私は、リクエストされたご要望の回答者層には含まれていません。
回答いただいたchSries(i).PlotOrder = jを参考に「.SeriesCollection(2).PlotOrder = 1」を見つけることができました。ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA 書式変更で困ってます。 オートフィルターの日付フィルターを用いて データの絞り込 2 2022/07/26 22:16
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
- Excel(エクセル) 結合セルのソートについて 5 2022/04/22 11:57
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- その他(Microsoft Office) マクロVBAについて 1 2022/09/06 18:12
- Excel(エクセル) Excelに文字データのみを貼り付けたい 8 2023/05/03 15:38
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
- Visual Basic(VBA) VBAで大量データの処理 3 2022/11/15 21:53
- Excel(エクセル) Excelで連続するデータの個数をカウントする方法を教えてください 1 2023/02/13 09:15
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Excelのグラフの凡例の順序を変えたい
Excel(エクセル)
-
VBA(excel)でグラフのデータ範囲の取得
その他(Microsoft Office)
-
Excelの2軸グラフ(棒と折れ線)の凡例の順序の変更方法
Excel(エクセル)
-
-
4
Excel 2007 <VBAでグラフの操作(Seriescollec
その他(Microsoft Office)
-
5
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
6
エクセル2010 グラフの軸の最大値最小値をセル参照する
Excel(エクセル)
-
7
ExcelVBA:複数の特定のグラフを選択する方法
Visual Basic(VBA)
-
8
グラフマクロで系列を変数にする方法を教えてください
Visual Basic(VBA)
-
9
VB2010で、選択した系列を最前面に表示させたいのですが、
Visual Basic(VBA)
-
10
excel vba グラフ データラベルの設定 不明なエラー
Visual Basic(VBA)
-
11
グラフの「項目軸ラベルに使用」をVBAで
Visual Basic(VBA)
-
12
[エクセル]マクロで、自動的にグラフの色を変える方法
Excel(エクセル)
-
13
エクセル・マクロでグラフを最背面に移動させたい
Excel(エクセル)
-
14
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
15
Excel マクロ グラフの線とマーカーの太さ変更
Excel(エクセル)
-
16
エクセルでエラーが出て困っています。
Excel(エクセル)
-
17
コンボボックス内の文字サイズ変更
Excel(エクセル)
-
18
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
19
VBA グラフの存在の判定について
Visual Basic(VBA)
-
20
Excelでエラー(#N/Aなど)値を含む範囲で最大値や最小値をもとめ
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【世界はデータで出来ている】...
-
「未使用」と「不使用」ってど...
-
ネットカフェから、メールでき...
-
PCの内蔵メモリにデータは残る?
-
【MSOffice Publisher2010差し...
-
エクセルで年休を管理する方法...
-
パレート図等で「N=100」とあ...
-
アイドルの写真について
-
3Dプリンターを使う場合 パソコ...
-
エクセル2010 VBA Date型のグラ...
-
スマホアプリのトラッキング 個...
-
こんにちはAdobe製品初心者のも...
-
ワードの差し込み印刷のデータ...
-
バラバラなPDFの画面上等のサイ...
-
プロ野球の球団別の残塁数を載...
-
三次元のデータがある領域に含...
-
職務質問で聞かれたデータはど...
-
日本通信の当月利用データ量は...
-
ファイザーやモデルナは当時は...
-
印刷キューに表示されるサイズ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「未使用」と「不使用」ってど...
-
PCの内蔵メモリにデータは残る?
-
日本通信の当月利用データ量は...
-
高速フーリエ変換でデータ数が...
-
3Dプリンターを使う場合 パソコ...
-
ネットカフェから、メールでき...
-
Excel Webクエリ
-
パレート図等で「N=100」とあ...
-
データeSIMのこと
-
XMLデータってなんですか?
-
Excelの“並び替え”で文字コード...
-
エクセルのグラフのデータ系列...
-
職務質問で聞かれたデータはど...
-
プロ野球の球団別の残塁数を載...
-
データ用HDDの別のPCへの乗せ替え
-
データのレプリカってなんですか?
-
2年ほど放置したあつ森を再開す...
-
差し込み印刷がうまくできません
-
ワードの差し込み印刷のデータ...
-
エクセルで縦に並んだデータを...
おすすめ情報