Colocar por código una imagen centrada
vitobacon
Hace no mucho tiempo hice una consulta (que ahora no encuentro) y que
quisiera ampliar.
Se trata de colocar una imagen, mediante código vba, en una celda
determinada a partir de lo que he seleccionado en una lista de validación.
En aquel momento quería que la esquina superior izquierda de la imagen
coincidiera con la esquina superior izquierda de una celda.
Héctor Miguel me lo resolvió de la siguiente manera (simplificando):
With Range(celda)
izq = .Left
arr = .Top
End With
With ActiveSheet.Pictures.Insert(FOTO)
.Left = izq
.Top = arr
End With
Es decir, calculo la esquina de la celda y se la aplico a la foto.
Hasta aquí todo correcto, pero ahora me gustaría hacer coincidir el centro
de la imagen con el centro de la celda, si es que se puede...
He consultado la ayuda, he hecho pruebas, pero no veo que exista un método
para localizar el centro de una celda, aunque sí de textbox y otras cosas,
pero no domino el tema y me estoy liando.
Si alguien tiene una sugerencia, agradecido quedaré.
Ávaro
Héctor Miguel
With Range(celda)
izq = .Left + (.Width / 2)
arr = .Top + (.Height / 2)
End With
saludos,
hector.
__ OP __
> ... colocar una imagen, mediante codigo vba, en una celda determinada...
> En aquel momento queria que la esquina superior izquierda de la imagen
> coincidiera con la esquina superior izquierda de una celda...
>
> With Range(celda)
> izq = .Left
> arr = .Top
> End With
> With ActiveSheet.Pictures.Insert(FOTO)
> .Left = izq
> .Top = arr
> End With
>
> ... ahora me gustaria hacer coincidir el centro de la imagen con el centro de la celda ...
vitobacon
Muchas gracias, como siempre.
Seguimos avanzando.
Saludos.
Álvaro
"Héctor Miguel" <NOhemio...@PLShotmail.com> escribió en el mensaje
news:e2mebinE...@TK2MSFTNGP02.phx.gbl...