Excel2007で棒グラフの模様を単色の縞々にしたい

Excel2007で棒グラフの模様を単色の縞々にしたい

棒グラフを作成していまして、白黒のコピーでもわかるように
棒の部分を黒の点々や縞々にしたいのですが、データ系列の書式設定での
塗りつぶしでは、項目が見つかりません。
前のバージョンでは簡単にできたのですが・・・・
別のやり方があるのでしょうか

No.1 ベストアンサー 回答者： xls88 回答日時： 2010/07/31 21:22

≪テンプレート≫

Excel2007(エクセル2007)Q&A(Tips)：塗りつぶしでパターン(斜線やドット)を使いたい
http://www.eurus.dti.ne.jp/~yoneyama/Excel2007/F …

≪アドインソフト≫
Excel 2007でモノクロのグラフパターンを使いたい
http://martin.p2b.jp/200907-Excel-graph-pattern. …

≪VBA≫
ActiveChart.SeriesCollection(1).Interior.Pattern = xlHorizontal
といった感じでパターンを表示します。

グラフを選択して下記サンプルコードを実行してください。

Dim ptn As Variant
Dim mytime As Variant
Dim i As Long

ptn = Array(xlGray75, xlGray50, xlGray25, xlGray16, xlGray8, _
xlHorizontal, xlVertical, xlDown, xlUp, xlChecker, _
xlSemiGray75, xlLightHorizontal, xlLightVertical, _
xlLightDown, xlLightUp, xlGrid, xlCrissCross, xlSolid)

For i = 0 To UBound(ptn)
ActiveChart.SeriesCollection(1).Interior.Pattern = ptn(i)
mytime = Now + TimeValue("00:00:03")
Do While Now < mytime
DoEvents
Loop
Next i

この回答へのお礼

ありがとうございます。この機能は無くなっていたんですね。
アドインソフトでうまくいきました。

お礼日時：2010/07/31 21:52