Insertar imagen mso en celda

[Juanpy]

Estimados del foro,

Tengo una hoja a la cual cambia de estado:

1. Entregado

2. Revisado

3. Terminado

La idea es insertar una imagen e identificarla:

select case cells(1,1).imageMso

case is isempty()

  msgbox "Activa"

case is = "Spelling"

  msgbox "Entregado"

case is = "FileStartWorkflow"

end select

[/CODE]

Inicialmente debo inserta la imagenMso en la celda para clasificar:

[CODE]cells(1,1).select
with selection
.sharpe="imageMso.Spelling"
end with
[/CODE]

O algo asi.

La pregunta maestros:

Se puede hacer?

Alguien me puede guiar?

Muchas gracias.