VBA: How to handle runtime scenarios 438 when calling a method on a Shape object?
I'm stuck trying to I keep running into This might be a silly question, but After trying multiple solutions online, I still can't figure this out. Quick question that's been bugging me - I'm working with a runtime behavior 438 ('Object doesn't support this property or method') when trying to manipulate a Shape object in Excel VBA. The goal is to iterate through shapes on a user-selected worksheet and change their fill color based on certain conditions. Here's the code snippet I'm using: ```vba Sub ChangeShapeColor() Dim ws As Worksheet Dim shp As Shape Set ws = ThisWorkbook.Sheets(Application.InputBox("Select a sheet name", Type:=2)) For Each shp In ws.Shapes If shp.Type = msoShapeRectangle Then shp.Fill.ForeColor.RGB = RGB(255, 0, 0) ' Changing to red End If Next shp End Sub ``` The behavior occurs on the line where I try to set the fill color. I’ve confirmed that the shapes are indeed rectangles, but for some reason, the fill property doesn’t seem to be accessible for some shapes, like AutoShapes or grouped shapes. I've tried adding checks and using `TypeName(shp)` to debug, but it still throws the same behavior. Is there a better way to handle different shape types or to ensure that I only manipulate the properties that are valid for the specific shape? Any suggestions on how to resolve this would be greatly appreciated! Am I missing something obvious? Any suggestions would be helpful. This is part of a larger REST API I'm building. Any suggestions would be helpful. Any ideas what could be causing this? My team is using Vba for this mobile app. The stack includes Vba and several other technologies. Thanks, I really appreciate it!