Set shatch = ThisDrawing.SelectionSets.Add("shatch")
shatch.SelectOnScreen FilterType, FilterData
If shatch.Count = 0 Then Exit Sub
For i = 0 To shatch.Count - 1
shatch(i).PatternAngle = ra
shatch(i).Update
Next
用以上代码对填充图案的角度进行更改后,图案却不会自动更新按新的角度进行填充,不知是何原因呢?