ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.UserPicture "C:\LEGEND\000.bmp"
.TextureTile = msoTrue
.TextureOffsetX = 0
.TextureOffsetY = 0
.TextureHorizontalScale = 1
.TextureVerticalScale = 1
.TextureAlignment = msoTextureTopLeft
.RotateWithObject = msoTrue
End With

結果跑出來的圖案屬性->填滿->左右對稱類型->兩者
要如何更改預設值從兩者變成無
已經嘗試用office2010錄過excel,但是沒有出現程式碼

---