エクセルで、最背面に移動と塗りつぶしなし

先ほど、最背面に移動を

Dim sp As Shape
Set sp = ActiveSheet.Shapes.AddShape(msoShapeOval, 340, 140, 73, 52)
With sp
With .Line
.Weight = xlThin
.ForeColor.SchemeColor = 10
End With
.ZOrder msoSendToBack
End With

の様に教えていただきました。しかし、併せてオートシェイプの書式設定で塗りつぶしの色の「塗りつぶしなし」を設定したいのです。
自動記録に試して見ましたが,エラーが出て上手くいきません。よろしくお願いします。

No.1 ベストアンサー 回答者： imogasi 回答日時： 2008/03/09 20:59

Sub test01()

Dim sp As Shape
Set sp = ActiveSheet.Shapes.AddShape(msoShapeOval, 340, 140, 73, 52)
sp.Select
Selection.ShapeRange.Fill.Visible = msoFalse
With sp
With .Line
.Weight = xlThin
.ForeColor.SchemeColor = 10
End With
.ZOrder msoSendToBack
End With
End Sub
でうまくいくようですが。

No.3 回答者： okormazd 回答日時： 2008/03/09 21:17

Dim sp As Shape

Set sp = ActiveSheet.Shapes.AddShape(msoShapeOval, 340, 140, 73, 52)
With sp
With .Line
.Weight = xlThin
.ForeColor.SchemeColor = 10
End With

.Fill.Visible = msoFalse'これ追加

.ZOrder msoSendToBack
End With

No.2 回答者： okormazd 回答日時： 2008/03/09 21:13

Dim sp As Shape

Set sp = ActiveSheet.Shapes.AddShape(msoShapeOval, 340, 140, 73, 52)
With sp
With .Line
.Weight = xlThin
.ForeColor.SchemeColor = 10
End With

.Fill.Transparency = 1.0 'これ追加

.ZOrder msoSendToBack
End With