Excel 2003 マクロでテキストボックスの書式設定

質問

こんにちはWindows XP でExcel 2003を使用しています

セルの上にダイアローグボックスを連続して配置する作業を
効率よく行うために、マクロを組みましたが以下の点が
うまくいきません

セルと同じ大きさのダイアローグボックスを描き
枠無し、塗りつぶしなし、にしてダイアローグボックス内に
「---」を中央配置にしたものを連続したセルに6個コピーして
いきます

しかし結果は「塗りつぶし無し」の設定が反映されず
枠はないのですが白い下地が残ってしまいます。

マクロ作成時には以下のように操作しました
テキストボックスの書式設定---> 塗りつぶし---> 色--->
塗りつぶし無し

何が悪いのでしょうか？
おわかりの方お教えください。

回答No.2

xls88 · ベストアンサー

↓の2行が無ければいいようですよ。
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.Transparency = 0#

下記ページを参考に、ステップインで、1行ずつ実行すれば分かると思います。
デバッグについて
http://members.jcom.home.ne.jp/rex-uchida/vba110.htm

お礼

ご回答ありがとうございます
実際にやってみて地が透明になりました。
問題が解決しました。

回答No.3

xls88

6個のテキストボックスを直接、指定セル（E55:J55）に描いてみます。

Dim i As Integer

For i = 0 To 5
With Cells(55, 5 + i)
With ActiveSheet.Shapes.AddTextbox _
(msoTextOrientationHorizontal, .left, .Top, .Width, .Height)
.Fill.Visible = msoFalse
'.Characters.Text = "---"
'↓以下Excel2007で動いたコード、旧Excelではダメかも
.TextFrame2.TextRange.Text = "---"
.TextFrame.HorizontalAlignment = xlHAlignCenter
.TextFrame.VerticalAlignment = xlVAlignCenter
End With
End With
Next i

回答No.1

xls88

問題のコードを提示できないでしょうか。

補足

余分なマクロも有りますが以下の通りです。
Range("E55:J55").Select
Selection.ClearContents
Range("H55").Select
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 672#, 729#, _
81#, 13.5).Select
Selection.Characters.Text = ""
With Selection.Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
ActiveSheet.Shapes("Text Box 12").Select
Selection.Characters.Text = "---"
With Selection.Characters(Start:=1, Length:=3).Font
.Name = "ＭＳ Ｐゴシック"
.FontStyle = "標準"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Selection.HorizontalAlignment = xlCenter
Range("K55").Select
ActiveSheet.Shapes("Text Box 12").Select
Selection.Copy
Range("I55").Select
ActiveSheet.Paste
Range("H55").Select
ActiveSheet.Paste
Range("G55").Select
ActiveSheet.Paste
Range("F55").Select
ActiveSheet.Paste
Range("E55").Select
ActiveSheet.Paste
Range("E56").Select
Selection.Copy
Range("F56:J56").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("E56:J56").Select
Selection.Copy
Range("E57:E59").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("K59").Select
End Sub