Anyone know the vba code to check if selected shape is filled.

I'm looking at the X7 editor, but I think X4 will be the same. Please ask again if seems not to work.

Assuming that your shape is s, then the fill type will be identified by s.fill.type  and the possible values (from the help file) are:

So I'd expect you should be able to do:

if s.fill.type = cdrNoFill then
    msgbox "object has no fill"
else
    ' whatever you want to do
endif

Thanks, got it working good now.