EXCEL2007で図形内をパターン（ドットなど）で塗りつぶす方法。

質問

EXCEL2007で図形内をパターン（ドットなど）で塗りつぶす方法。

以前のEXCEL2003までなら図形の中にパターン（ドットなど）で塗りつぶしが出来ましたが、
EXCEL2007でのパターン塗りつぶしのやり方が分かりません。誰か分かる方教えて下さい。

回答No.3

s-uzen · ベストアンサー

Excel 2007とPowerPoint 2007は、図形の塗りつぶしのパターンの機能が無くなり、Wordのみ可能になりました。
Excel 2007とPowerPoint 2007は、描画エンジンが新しい方式に変わって、機能がカットされてしまいました。
Word 2007は、まだ以前のバージョンと同じ描画エンジンを使用のため、パターン機能が残っています。

次期 Office 2010 では復活していますが、Excel 2007で行うには、以下の方法があります。

1) Word文書オブジェクトを挿入し、オブジェクト内に図形を描いて塗りつぶしパターンを設定する方法
「挿入」タブ→テキストの「オブジェクト」→Microsoft Word 2007文書を選択すると、Wordオブジェクトが挿入されます。
サイズを適当に変更して、オブジェクト内に、「挿入」→図形で図を挿入します。
描画ツールの「書式」タブが選択状態になっているので、図形のスタイルの「図形の塗りつぶし」→パターンで、塗りつぶしパターンを設定します。

Wordオブジェクトは、右クリック→オブジェクトの書式設定→「色と線」タブで、塗りつぶしと線の色をなしに設定します。
図がオブジェクトの端に隠れて切れるような場合は、書式設定の「図」タブで、トリミング範囲の値をマイナス値にすると現れてきます。

2) Wordで図形を描画、塗りつぶしを行って、コピー/貼り付けする方法
Wordにはパターン機能があるので、Wordを使用して図形を描き、塗りつぶしパターンの設定を行ったものをコピーして、Excelへ貼り付けします。

お礼

細かい手順まで記載していただきありがとうございます。
ソフトが新しくなって必要な機能が削られるとは変な話ですね。
本当に２００７は使いにくいです。

回答No.4

xls88

マクロで、どうでしょうか。
図形を選択して置いて、マクロを実行してみてください。

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)
Selection.Interior.Pattern = ptn(i)
mytime = Now + TimeValue("00:00:03")
Do While Now < mytime
DoEvents
Loop
Next i

お礼

回答ありがとうございます。

マクロは私には敷居が高いのでワードで作業することにしました。
ありがとうございました。

回答No.2

KURUMITO

残念ながらエクセル画面ではできませんので、ワードで作成してからそれをコピーしてエクセル画面に貼り付けるのが簡単でしょう。

お礼

早々に回答ありがとうございます。
ワードで出来てエクセルで出来ないのが不思議ですね。

回答No.1

akiomyau

デフォルトではこの機能はなくなっています。
下記のページを参照してアドインを導入してはどうでしょうか。

http://blogs.yahoo.co.jp/akio_myau/30104738.html

補足

回答ありがとうございます。
でも、このアドインはグラフ限定ですよね。
普通の図形にパターンをつけたいのですが・・・何かないですか？