Disparar una autoforma

Claro, si es posible, estoy suponiendo que no tienes problemas con el uso de la condición y solo te muestro como agregar la autoforma, en este caso, agrega un bonito sol...
Private Sub AgregaSol()
Dim objForma As Shape
Set objForma = ActiveSheet.Shapes.AddShape(msoShapeSun, 91.5, 30.75, 99#, 97.5)
With objForma
.Fill.ForeColor.SchemeColor = 13
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.Visible = msoTrue
.Name = "afSol"
End With
Set objForma = Nothing
End Sub
Observa que este procedimiento es privado, esta pensado para que lo llames desde donde haces tu condición, que, si lo haces desde una macro tienen que estar en el mismo modulo, pero si la llamas desde otro lado, tienes que hacerlo publico para que funcione
También, puedes hacer que se muestre un cierto tiempo y después e borre, prueba las siguiente macros:
Iniciar
AgregaSol
QuitaSol
La primer macro es publica, llamala desde la interfaz de Excel (Alt+F8), las otras dos son privadas y las usas el procedimiento Iniciar, copia el siguiente código, TAL CUAL, en un nuevo modulo de código, después solo adáptalo a tus necesidades, saludos...
Option Explicit
Dim objForma As Shape
Private Sub AgregaSol()
Set objForma = ActiveSheet.Shapes.AddShape(msoShapeSun, 91.5, 30.75, 99#, 97.5)
With objForma
.Fill.ForeColor.SchemeColor = 13
.Line.Weight = 3#
.Line.ForeColor.SchemeColor = 10
.Visible = msoTrue
.Name = "afSol"
End With
End Sub
Private Sub QuitaSol()
objForma.Delete
Set objForma = Nothing
End Sub
Public Sub Iniciar()
Dim Pausa As Single
Dim Duracion As Long
Dim Inicio As Single
Dim Inicio2 As Single
AgregaSol
Pausa = 0.3
Duracion = 5
Inicio = Timer
Do
Inicio2 = Timer
Do: DoEvents: Loop While Timer < Inicio2 + Pausa
objForma.Visible = Not (objForma.Visible)
DoEvents
Loop While Timer < Inicio + Duracion
QuitaSol
End Sub
Mauricio Baeza
[email protected]
Todo lo que no es dado es perdido
*==========================================*
La presente respuesta ha demandado un tiempo de lectura,
análisis, elaboración y redacción. A cambio, simplemente,
pretendo que te tomes un minuto para FINALIZARLA, si
hubiera satisfecho -en alguna medida- tu requerimiento.
En caso contrario, puedes preguntarme nuevamente
aclarando qué entendí mal o qué faltó.