Question

插入Excel中的图片将自动命名为“图片1”，“图片2”等。我正在运行一个功能，在所选图片周围放置边框。问题是，如果工作表中有两个图像是“图片1”，则该功能会混淆并且不知道将哪个图像放在上面，而是随机地将其放在可能不正确的图像上。无论如何都要更改图像的名称框或至少获取所选图像？

这是我在图像上放置边框的代码：

Private Function AddImageBorder(WhichSheet As String)

With ActiveWorkbook.Sheets(WhichSheet).Shapes(Selection.Name)
    .Line.Weight = 5
    .Line.Visible = msoTrue
End With

结束功能

Answer 1

试试这个：

Private Function AddImageBorder()
     If TypeName(Selection) = "Picture" Then 'Make sure the object is a picture first
         With Selection.ShapeRange
         .Line.Weight = 5
         .Line.Visible = msoTrue
         End With
      End If

End Function

我添加了一项检查，以确保选择的图片可以防止出现错误。

要回答您的直接问题，您可以这样做：

Selection.Name = "NewName"

它将改变图片对象的名称。

在excel中重命名插入的图片

1 个答案: