無法分配給只讀屬性VBA

Question

得到一個「編譯錯誤：無法分配給只讀屬性」爲以下幾點：

With wsData.Shapes("Rectangle 1").Fill 

    .Pattern = xlGrid 
    .ForeColor.RGB = RGB(255, 0, 0) 

End With 

Answer 1

你缺少中間的ShapeRange屬性：

With wsData.Shapes("Rectangle 1").ShapeRange 

全碼：

With wsData.Shapes("Rectangle 1").ShapeRange 
    With .Fill 
     .Pattern = xlGrid 
     .BackColor.RGB = RGB(255, 0, 0) 
    End With 
End With 

---

編輯1：代碼可能出現的錯誤處理

Option Explicit 

Sub ColorChape() 

Dim wsData  As Worksheet 
Dim myShp  As Shape 

Set wsData = Worksheets("Sheet1") ' <-- modify to your sheet's name 

On Error Resume Next 
Set myShp = wsData.Shapes("Rectangle 1") 
On Error GoTo 0 

If myShp Is Nothing Then ' <-- unable to set the shape, doesn't exist in specified sheet 
    MsgBox "`Rectangle 1` Shape doesn't exist in " & wsData.Name & " sheet!", vbCritical 
Else 
    With myShp 
     With .Fill 
      .BackColor.RGB = RGB(255, 0, 0) 
      ' rest of your code goes here 

     End With 
    End With 
End If 

End Sub