自己写了一个图片居中的代码，有点小瑕疵，求教

javifu

Sub 锁高()
Dim p As Shape, d$
For Each p In Sheet1.Shapes
p.LockAspectRatio = msoTrue
d = p.TopLeftCell.Address
p.Height = Range(d).Height - 4
p.Top = Range(d).Top + 2
p.Left = Range(d).Left + 2
p.Left = (p.TopLeftCell.Width - p.Width) / 2 + p.TopLeftCell.Left
p.Top = (p.TopLeftCell.Height - p.Height) / 2 + p.TopLeftCell.Top
Next
End Sub


执行这个代码会控制整个表格，如何设置为只控制当前单元格。

山菊花

Sub 锁高()
    Dim p As Shape, d$
    For Each p In Sheet1.Shapes
        d = p.TopLeftCell.Address
        If ActiveCell.Address = d Then
            p.LockAspectRatio = msoTrue
            p.Height = Range(d).Height - 4
            p.Top = Range(d).Top + 2
            p.Left = Range(d).Left + 2
            p.Left = (p.TopLeftCell.Width - p.Width) / 2 + p.TopLeftCell.Left
            p.Top = (p.TopLeftCell.Height - p.Height) / 2 + p.TopLeftCell.Top
        End If
    Next
End Sub

javifu

谢谢版主！！！

yhe1989

我也求一个工作簿所有图片居中的代码，log除外