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

Question

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

s-uzen · Accepted Answer

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へ貼り付けします。

xls88 · Answer

マクロで、どうでしょうか。
図形を選択して置いて、マクロを実行してみてください。

    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

KURUMITO · Answer

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

akiomyau · Answer

デフォルトではこの機能はなくなっています。
下記のページを参照してアドインを導入してはどうでしょうか。

http://blogs.yahoo.co.jp/akio_myau/30104738.html

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

Excel 2007とPowerPoint 2007は、図形の塗りつぶしのパターンの機能が無くなり、Wordのみ可能になりました。

マクロで、どうでしょうか。

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

デフォルトではこの機能はなくなっています。

この回答への補足

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング