Hola @RubenDario
Faltaría que en cada línea dentro del With le pongas un punto al inicio
With Hoja1
.Range("B6:B18,F6:F18,J6:J18").Select
.Range("J6").Activate
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
.Selection.ClearContents
.Range("A1").Select
End With
Sin embargo, lo que yo haría (si fuese mi proyecto)... te ofrezco varias soluciones.
No asignarlo a una combinación de teclas, mejor ponerlo en una forma o botón.
Modificar tu libro con la app Custom UI Editor o similar y adicionar un botón en el Ribbon, estará visible solo cuando el libro esté activo.
Al principio de tu código pondría algo como: If Thisworkbook.Name <> ActiveWorkbook.Name Then Exit sub
Por
DiegoPC, · publicado
.
Anteayer se planteó una consulta en el foro de Microsoft Excel for Developers sobre como rotar una imagen en un formulario, cosa que no es nada fácil. Nada que ver con Girar o voltear una imagen, forma, cuadro de texto o WordArt - Excel - Office.com
[DBOX]rotate a picture on a form[/DBOX]
Al final Andreas Killer la resolvió en este foro:
[DBOX]rotate a picture on a form - Microsoft Community[/DBOX]
Se basó en un foro alemán de Visual Basic:
[DBOX]VB 5/6-Tipp 0659: Grafik mittels GDI+ drehen und spiegeln - ActiveVB[/DBOX]
Y yo he copiado la idea y adjunto mi aporte sin haber analizado la API de Windows GDI+
La tengo como tarea pendiente y me lleva de cabeza. Pincha click en ella para rotarla. :excitement:
P.D.: Nada que ver con el aporte de mi querido romano Macro Antonio, pues lo acabo de leer después de subir este archivo
[DBOX]https://www.ayudaexcel.com/foro/ideas-aportes-64/simular-animacion-formulario-20184/[/DBOX]
RotarImagen-PW1.zip