4年に一度のスポーツの祭典 全競技速報中

先ほど、最背面に移動を

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

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

gooドクター

A 回答 (3件)

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
でうまくいくようですが。
    • good
    • 0

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
    • good
    • 0

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
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

gooドクター

人気Q&Aランキング