マクロで図形の塗りつぶしを行うと「指定された値は境界を越えています」のエラーになります

Question

Anonymous

Excel 2013を使用してシート上にある図形に対して，

マクロ内で指定した色で塗りつぶしを行うというマクロを生成しています。

しかしマクロを実行すると「指定された値は境界を越えています」という

エラーメッセージが表示されます。

なおマクロは以下のように実装しています。

Sub hoge()

Call 塗りつぶし(255, 153, 51)

End Sub

Private Sub 塗りつぶし(R As Long, B As Long, G As Long)

ActiveSheet.Shapes("土台1").Fill.ForeColor.SchemeColor = RGB(R, G, B)

ActiveSheet.Shapes("土台2").Fill.ForeColor.SchemeColor = RGB(R, G, B)

End Sub

なおマクロを実装しているファイルでは複数のシートが存在し，

シートごとにマクロの標準モジュールを分けています。

最初の方のモジュールにも上記と同様の塗りつぶし処理が存在しますが，

こちらについては図形の塗りつぶしに成功します。

何が原因でエラーが発生しているかわかるでしょうか。

"**モデレーター注**

タイトルを編集しました。

編集前タイトル : マクロで図形の塗りつぶしを行うとエラーになります "

ロックされた質問。この質問は、Microsoft サポートコミュニティから移行されました。役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント

1 件の回答

Answer 1

ActiveSheet.Shapes("土台1").Fill.ForeColor.SchemeColor = RGB(R, G, B)

ActiveSheet.Shapes("土台2").Fill.ForeColor.SchemeColor = RGB(R, G, B)

を

ActiveSheet.Shapes("土台1").Fill.ForeColor.RGB= RGB(R, G, B)

ActiveSheet.Shapes("土台2").Fill.ForeColor.RGB= RGB(R, G, B)

としたら着色できました。

ここに

「Fill.ForeColor.SchemeColorプロパティと Fill.ForeColor.RGBプロパティの違い」についての解説があります。