Excel VBA質問箱 IV

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

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


9966 / 76734 ←次へ | 前へ→

【72323】Re:SeriesCollection.Formula プロパティ参照時のエラー
回答  kanabun  - 12/7/12(木) 12:09 -

引用なし
パスワード
   ▼ぽぽ さん:
はじめまして。kanabunです
むかし、Chartの DisplayBlanksAs プロパティを利用する方法を
教えてもらったことがあります。

Sub try1()
  Dim Cht As Chart
  Set Cht = ActiveSheet.ChartObjects(1).Chart
  
  Dim Ser As Series
  Dim oldDISP As Long
  Dim tstrSeriesFormula$
  
  oldDISP = Cht.DisplayBlanksAs '現在の設定を保存
  Cht.DisplayBlanksAs = xlZero  '一時的に xlZero表示に!
  For Each Ser In Cht.SeriesCollection
    tstrSeriesFormula = Ser.Formula
    '---Run-time error '1004': _
      Unable to get the Formula property of the Series class
    Debug.Print tstrSeriesFormula
  Next
  Cht.DisplayBlanksAs = oldDISP '元の設定に戻す
End Sub

7 hits

【72322】SeriesCollection.Formula プロパティ参照時のエラー ぽぽ 12/7/12(木) 11:30 質問
【72323】Re:SeriesCollection.Formula プロパティ参... kanabun 12/7/12(木) 12:09 回答
【72324】Re:SeriesCollection.Formula プロパティ参... ぽぽ 12/7/12(木) 14:18 お礼
【72327】Re:SeriesCollection.Formula プロパティ参... あすなろ 12/7/12(木) 17:20 発言
【72331】Re:SeriesCollection.Formula プロパティ参... ぽぽ 12/7/12(木) 20:30 お礼
【72332】Re:SeriesCollection.Formula プロパティ参... あすなろ 12/7/12(木) 22:33 発言
【72344】Re:SeriesCollection.Formula プロパティ参... ぽぽ 12/7/17(火) 14:02 お礼

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