centrar imagnes en celdas

hola, Asturias !

... hoja con multitud de imagenes que... aparecieran centradas en su celda, sin tener que hacerlo una a una [...]

suponiendo que las dimensiones de las imagenes estan ya en sus medidas 'correctas'...
el codigo que te expongo al final 'ajusta' las dimensiones de la celda 'donde esta cada imagen'
toma en cuenta que la propiedad 'topleftcell' se refiere a la celda donde 'cae' la esquina superior-izquierda [de la imagen]
por lo que si la imagen se encuentra 'mordiendo' otra/s celda/s [aunque no se 'aprecie' a simple vista]...
sera 'esa' la celda [topleftcell] la que se 'ajuste' y donde la imagen quedara 'centrada' <= OJO

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub CentrarLasImagenesEnSuCelda()
Application.ScreenUpdating = False
Dim Fig As Shape, Ajuste As Single
With ActiveSheet
For Each Fig In .Shapes
If Fig.Type = msoPicture Then
With .Range(Fig.TopLeftCell.Address)
Fig.Left = .Left + 1
Fig.Top = .Top + 1
.RowHeight = Fig.Height + 2
.ColumnWidth = Fig.Width + 2
Ajuste = .Width / (Fig.Width)
.ColumnWidth = .ColumnWidth / Ajuste
End With
End If
Next
End With
End Sub

Muchas gracias Hecto. la macro casi soluciona el problema, yo lo queria
alreves, es decir una vez definido el tamaño de la celda centrar las
imagenes en la misma, pero como son todas del mismo tamaño lo he solucionado
con edicion especial ir objetos y despues corregir la posicion de las
imagenes y ha quedao perfecto, de todas formas muchas gracias por tu
interes.

"Héctor Miguel" escribió en el mensaje
news:%

hola, Asturias !

... hoja con multitud de imagenes que... aparecieran centradas en su
celda, sin tener que hacerlo una a una [...]

suponiendo que las dimensiones de las imagenes estan ya en sus medidas
'correctas'...
el codigo que te expongo al final 'ajusta' las dimensiones de la celda
'donde esta cada imagen'
toma en cuenta que la propiedad 'topleftcell' se refiere a la celda donde
'cae' la esquina superior-izquierda [de la imagen]
por lo que si la imagen se encuentra 'mordiendo' otra/s celda/s [aunque no
se 'aprecie' a simple vista]...
sera 'esa' la celda [topleftcell] la que se 'ajuste' y donde la imagen
quedara 'centrada' <= OJO

si cualquier duda [o informacion adicional]... comentas?
saludos,
hector.
en un modulo de codigo 'normal' ==> Sub CentrarLasImagenesEnSuCelda()
Application.ScreenUpdating = False
Dim Fig As Shape, Ajuste As Single
With ActiveSheet
For Each Fig In .Shapes
If Fig.Type = msoPicture Then
With .Range(Fig.TopLeftCell.Address)
Fig.Left = .Left + 1
Fig.Top = .Top + 1
.RowHeight = Fig.Height + 2
.ColumnWidth = Fig.Width + 2
Ajuste = .Width / (Fig.Width)
.ColumnWidth = .ColumnWidth / Ajuste
End With
End If
Next
End With
End Sub