VBA替换Excel文件中的徽标

Question

我有一个奇怪的问题。我以前每天都有很少的报道。

所有这些都在Excel中，并在每个文件的所有表格中都有公司徽标。

但是，现在公司名称已更改，因此需要更换新徽标以代替现有徽标。想要检查是否可以使用VBA进行更换。

我尝试使用application.shapes方法。但是，进一步困惑。

Answer 1

试试这个......

Sub ChangePicture(strNewPath As String)

Dim oOld As Picture
Dim oNew As Picture

Set oOld = ActiveSheet.Pictures(1)
Set oNew = ActiveSheet.Pictures.Insert(strNewPath)

oNew.Left = oOld.Left
oNew.Top = oOld.Top
oNew.Width = oOld.Width
oNew.Height = oOld.Height

oOld.Delete

End Sub