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