下記の変更を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も見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセル2010 グラフの軸の最大値最小値をセル参照する
Excel(エクセル)
-
Excelの2軸グラフ(棒と折れ線)の凡例の順序の変更方法
Excel(エクセル)
-
Excelのグラフの凡例の順序を変えたい
Excel(エクセル)
-
-
4
VBA(excel)でグラフのデータ範囲の取得
その他(Microsoft Office)
-
5
グラフマクロで系列を変数にする方法を教えてください
Visual Basic(VBA)
-
6
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
7
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
8
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
9
コンボボックス内の文字サイズ変更
Excel(エクセル)
-
10
グラフの「項目軸ラベルに使用」をVBAで
Visual Basic(VBA)
-
11
[エクセル]マクロで、自動的にグラフの色を変える方法
Excel(エクセル)
-
12
Excelでエラー(#N/Aなど)値を含む範囲で最大値や最小値をもとめ
その他(Microsoft Office)
-
13
VBA グラフの存在の判定について
Visual Basic(VBA)
-
14
Excel 2007 <VBAでグラフの操作(Seriescollec
その他(Microsoft Office)
-
15
Excel マクロ グラフの線とマーカーの太さ変更
Excel(エクセル)
-
16
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
17
【Excel VBA】一番右端セルまでの範囲指定の仕方(途中に空白セルあり)
Visual Basic(VBA)
-
18
Excelグラフを並べ替えた時の色固定について
Excel(エクセル)
-
19
たくさん作った同じ設定のグラフを一括して変更したい
Excel(エクセル)
-
20
エクセルグラフの一括設定。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「未使用」と「不使用」ってど...
-
高速フーリエ変換でデータ数が...
-
PCの内蔵メモリにデータは残る?
-
大学、レポートのデータ引用元...
-
ネットカフェから、メールでき...
-
Excelの“並び替え”で文字コード...
-
電話帳データを印刷するには?
-
エクセルのグラフのデータ系列...
-
CSVファイルを・…
-
日本通信の当月利用データ量は...
-
パレート図等で「N=100」とあ...
-
職務質問で聞かれたデータはど...
-
Excelでのデータの統合
-
機械学習に使用するデータの水...
-
エクセルで縦に並んだデータを...
-
ExcelデータのMacとWindowsの文...
-
フラッシュメモリ SSD、USB、SD...
-
自然対数に変換する意味がわか...
-
英語で何と言うか教えてくださ...
-
撮った写真がCD-Rに記録されて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「未使用」と「不使用」ってど...
-
高速フーリエ変換でデータ数が...
-
PCの内蔵メモリにデータは残る?
-
パレート図等で「N=100」とあ...
-
ネットカフェから、メールでき...
-
下記マクロでMsgBox "空白です...
-
Excelの“並び替え”で文字コード...
-
XMLデータってなんですか?
-
Excel Webクエリ
-
データ用HDDの別のPCへの乗せ替え
-
エクセルのグラフのデータ系列...
-
職務質問で聞かれたデータはど...
-
時代はSSDなのにネットの最近の...
-
日本通信の当月利用データ量は...
-
ワードの差し込み印刷のデータ...
-
プロ野球の球団別の残塁数を載...
-
シリアルRS-232出力機器からの...
-
差し込み印刷がうまくできません
-
Excel ドロップダウンリスト(入...
-
表計算: 多次元の表を作りたい
おすすめ情報