Aqui está a macro que usei:
Dim w As Double
Dim h As Double
Dim l As Double
Dim t As Double
Sub StoreDetails()
With ActiveWindow.Selection.ShapeRange(1)
w = .Width
h = .Height
l = .Left
t = .Top
End With
End Sub
Sub OutputDetails()
With ActiveWindow.Selection.ShapeRange(1)
.Width = w
.Height = h
.Left = l
.Top = t
End With
End Sub
Ele configurou minha imagem "Altura" e "Alinhamento" corretamente, mas a largura não obteve o valor correto. Alguém pode me dizer por quê?