Excel VBA質問箱 IV

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

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


13412 / 13646 ツリー ←次へ | 前へ→

【5499】項目軸の表示形式について ntomo 03/5/16(金) 14:09 質問
【5500】Re:項目軸の表示形式について ぴかる 03/5/16(金) 14:37 発言
【5505】項目軸の表示形式について ntomo 03/5/16(金) 16:10 発言
【5511】Re:項目軸の表示形式について ぴかる 03/5/16(金) 17:42 発言
【5518】Office2000では動作可能のようです こう 03/5/17(土) 13:41 発言
【5543】Re:Office2000では動作可能のようです ntomo 03/5/19(月) 11:21 お礼
【5544】続・項目軸の表示形式について ntomo 03/5/19(月) 14:42 質問
【5545】Re:続・項目軸の表示形式について ひで 03/5/19(月) 16:18 回答
【5546】Re:続・項目軸の表示形式について ntomo 03/5/19(月) 16:36 お礼
【5547】Re:続・項目軸の表示形式について ひで 03/5/19(月) 16:44 お礼

【5499】項目軸の表示形式について
質問  ntomo  - 03/5/16(金) 14:09 -

引用なし
パスワード
   こんにちは
グラフの項目軸で表示形式の設定ができるかと思いますが・・・。
マクロだとどうしてもゆーざ定義の設定ができません。
yyyy/mm/dd h:mm:ss
のデータを
yy/mm/dd h:mm

で表示させたいのです・・・。
マクロの記録のコードそのままでうごかしても
オブジェクトはこのプロパティまたはメソッドをサポートしてません。
となってしまいます。(yyyy/m/d h:mm にすると動きます)

  Selection.TickLabels.NumberFormatLocal = "yy/m/d h:mm"

なにかいい方法がありましたらよろしくおねがいします。

以下は自分でちょこっと手をいれた実際につかっているコードです。

Sub X軸第2軸設定処理()
  Dim xrng
  Set xrng = Sheets("データシート").Range("B29", Sheets("データシート").Range("IV29").End(xlToLeft))
  ActiveChart.PlotArea.Select
  ActiveChart.SeriesCollection(1).XValues = xrng
  ActiveChart.Axes(xlCategory).Select
  ActiveChart.PlotArea.Select
  With ActiveChart
    .HasAxis(xlCategory, xlPrimary) = True
    .HasAxis(xlCategory, xlSecondary) = True
    .HasAxis(xlValue, xlPrimary) = True
    .HasAxis(xlValue, xlSecondary) = True
  End With
  ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
  ActiveChart.Axes(xlCategory, xlSecondary).CategoryType = xlCategoryScale
  ActiveChart.Axes(xlCategory, xlSecondary).Select
'  Selection.TickLabels.NumberFormatLocal = "yy/m/d h:mm"
  Selection.TickLabels.Orientation = -75
  ActiveChart.SeriesCollection(2).Select
  ActiveChart.Axes(xlCategory, xlSecondary).Select
  Selection.TickLabels.AutoScaleFont = True
  With Selection.TickLabels.Font
    .Name = "MS Pゴシック"
    .FontStyle = "標準"
    .Size = 7
    .Strikethrough = False
    .Superscript = False
    .Subscript = False
    .OutlineFont = False
    .Shadow = False
    .Underline = xlUnderlineStyleNone
    .ColorIndex = xlAutomatic
    .Background = xlAutomatic
  End With
  Selection.TickLabels.Orientation = -79
  ActiveChart.ChartArea.Select
  ActiveChart.Axes(xlCategory, xlSecondary).Select
  ActiveChart.ChartArea.Select
  ActiveChart.PlotArea.Select


End Sub

【5500】Re:項目軸の表示形式について
発言  ぴかる  - 03/5/16(金) 14:37 -

引用なし
パスワード
   ntomoさん、こんにちは。

X軸の書式変更をマクロ記録してやってみました。特に問題なく動作しましたよ。
違う事をやったかもしれませんが・・・。だったら、スンマセンです。

  ActiveChart.Axes(xlCategory).TickLabels.NumberFormatLocal = "yy/m/d h:mm"

【5505】項目軸の表示形式について
発言  ntomo  - 03/5/16(金) 16:10 -

引用なし
パスワード
   ▼ぴかる さん:レスありがとうございます^^

>ntomoさん、こんにちは。
>
>X軸の書式変更をマクロ記録してやってみました。特に問題なく動作しましたよ。
>違う事をやったかもしれませんが・・・。だったら、スンマセンです。
>
>  ActiveChart.Axes(xlCategory).TickLabels.NumberFormatLocal = "yy/m/d h:mm"

ここだけコピーして貼り付けてみましたがだめでした・・・。
ただ第2x軸なのでこうかえましたが・・・・。><。。
  ActiveChart.Axes(xlCategory, xlSecondary).TickLabels.NumberFormatLocal = "yy/m/d h:mm"

何故でしょうか・・・・。
ちなみにEXCEL97 WIN2000です・・・。

【5511】Re:項目軸の表示形式について
発言  ぴかる  - 03/5/16(金) 17:42 -

引用なし
パスワード
   すんません。実力不足と都合により、対応出来ません。
どなたかよろしくお願い致します。

【5518】Office2000では動作可能のようです
発言  こう E-MAIL  - 03/5/17(土) 13:41 -

引用なし
パスワード
   #回答ではありませんが...^_^;

Office2000では問題なく動作するようです。
同じマクロをOffice97で実行すると,前述のエラーとなりますね。

ということで,Office97では未対応なんでしょうかね?
マクロ記録で書かれたコードがエラーになるのは良くあることで...

【5543】Re:Office2000では動作可能のようです
お礼  ntomo  - 03/5/19(月) 11:21 -

引用なし
パスワード
   ▼こうさん、ぴかるさんありがとうございます

>Office2000では問題なく動作するようです。
>同じマクロをOffice97で実行すると,前述のエラーとなりますね。
>
>ということで,Office97では未対応なんでしょうかね?
>マクロ記録で書かれたコードがエラーになるのは良くあることで...

よくあることなんですかぁ・・・・。
もうちょっと調べてみますね^^。
ありがとうございました^^

【5544】続・項目軸の表示形式について
質問  ntomo  - 03/5/19(月) 14:42 -

引用なし
パスワード
   こんにちは
グラフの項目軸で表示形式の設定ができるかと思いますが・・・。
マクロだとどうしてもゆーざ定義の設定ができません。
yyyy/mm/dd h:mm:ss
のデータを
yy/mm/dd h:mm

で表示させたいのです・・・。
マクロの記録のコードそのままでうごかしても
オブジェクトはこのプロパティまたはメソッドをサポートしてません。
となってしまいます。(yyyy/m/d h:mm にすると動きます)
現状ではEXCEL2000だとできて97だとできないことがわかっています。

そこで、他に設定する方法があればどなたか教えてください。
(無理かもですね。。。)


以下は自分でちょこっと手をいれた実際につかっているコードです。

Sub X軸第2軸設定処理()
  Dim xrng
  Set xrng = Sheets("データシート").Range("B29", Sheets("データシート").Range("IV29").End(xlToLeft))
  ActiveChart.PlotArea.Select
  ActiveChart.SeriesCollection(1).XValues = xrng
  ActiveChart.Axes(xlCategory).Select
  ActiveChart.PlotArea.Select
  With ActiveChart
    .HasAxis(xlCategory, xlPrimary) = True
    .HasAxis(xlCategory, xlSecondary) = True
    .HasAxis(xlValue, xlPrimary) = True
    .HasAxis(xlValue, xlSecondary) = True
  End With
  ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
  ActiveChart.Axes(xlCategory, xlSecondary).CategoryType = xlCategoryScale
  ActiveChart.Axes(xlCategory, xlSecondary).Select
'  Selection.TickLabels.NumberFormatLocal = "yy/m/d h:mm"
  Selection.TickLabels.Orientation = -75
  ActiveChart.SeriesCollection(2).Select
  ActiveChart.Axes(xlCategory, xlSecondary).Select
  Selection.TickLabels.AutoScaleFont = True
  With Selection.TickLabels.Font
    .Name = "MS Pゴシック"
    .FontStyle = "標準"
    .Size = 7
    .Strikethrough = False
    .Superscript = False
    .Subscript = False
    .OutlineFont = False
    .Shadow = False
    .Underline = xlUnderlineStyleNone
    .ColorIndex = xlAutomatic
    .Background = xlAutomatic
  End With
  Selection.TickLabels.Orientation = -79
  ActiveChart.ChartArea.Select
  ActiveChart.Axes(xlCategory, xlSecondary).Select
  ActiveChart.ChartArea.Select
  ActiveChart.PlotArea.Select
End Sub

【5545】Re:続・項目軸の表示形式について
回答  ひで  - 03/5/19(月) 16:18 -

引用なし
パスワード
   ▼ntomo さん こんにちは

これで変更されましたが
いかがでしょうか?
(win95 エクセル97)

Sub test1()
  Dim wn As String
wn = ActiveWorkbook.Name

  Worksheets("sheet1").ChartObjects(1).Chart _
  .Axes(xlValue, xlSecondary).TickLabels.NumberFormat = "yy/mm/dd h:mm"
      
  ActiveWindow.Visible = False
  Windows(wn).Activate

【5546】Re:続・項目軸の表示形式について
お礼  ntomo  - 03/5/19(月) 16:36 -

引用なし
パスワード
   ▼ひで さん:ありがとうございます!!
できました〜♪
x軸の設定なので
  ActiveChart.Axes(xlCategory, xlSecondary).TickLabels.NumberFormat = "yy/mm/dd h:mm"

ですね・・・。本当にありがとうございました。

あまりに困ってて思わずマイクロソフトに問い合わせて
返事待ちだったり。。。。(。-_-。)

マクロにばっかり頼ってはいけないんですね。。。勉強します。

【5547】Re:続・項目軸の表示形式について
お礼  ひで  - 03/5/19(月) 16:44 -

引用なし
パスワード
   ▼ntomo さん よかったですね!

私も勉強になりましたので
ありがとうございました。

>x軸の設定なので
>  ActiveChart.Axes(xlCategory, xlSecondary).TickLabels.NumberFormat = "yy/mm/dd h:mm"

でした・・私のはY軸でしたね ごめんなさ〜い。

13412 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free