触类旁通：图形、图片、与表单控件

最新推荐文章于 2023-03-29 19:56:05 发布

Delusion_luck

最新推荐文章于 2023-03-29 19:56:05 发布

阅读量283

点赞数

分类专栏： vba 文章标签： vba

本文链接：https://blog.youkuaiyun.com/Delusion_luck/article/details/106415204

版权

这篇博客详细介绍了如何在Excel中使用VBA进行图形对象和图片的操作，包括Shape对象的属性，如Count、Type、Name等，以及如何添加和调整图片的位置、大小。此外，还讲解了Like语句的使用，如匹配任意字符、数字和特定字符范围，并给出了实际应用示例，如改文件名。最后，提到了图表对象以及Like运算符在VBA中的应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

图形对象（Shape）

图形对象常用属性
Sheet1.shapes.count
Shp.Type
Shp.Name
Shp.TopLeftCell.Address
Shp.Top
Shp.Left
Shp.Height
Shp.Width
Shp.Visible

操作图片（Picture）

图片对象常用方法和属性
Sheet1.Shapes.AddPicture
参数：善用帮助功能
Filename
LinkToFile
SaveWithDocument
Left
Top
Width
Height

使用Like语句

* 任意字符
# 任意数字
？一位字符
！逻辑非
[A-Z] 大写字母
[A-Z a-z] 字母
[0-9] 数字
[!A-Z] 非大写字母
[!0-9] 非数字

按位置插入并调整图片(靠帮助)

在这里插入图片描述

'插入照片
Sub test2()
Dim i As Integer
Dim shp As Shape
'防止报错
On Error Resume Next
'循坏遍历，删除对象
For Each shp In Sheet1.Shapes
    shp.Delete
Next
'for循环到数据尾行
For i = 2 To Sheet1.UsedRange.Rows.Count
    Sheet1.Shapes.AddPicture "D:\DATA\" & Range("a" & i) & ".jpg", msoFalse, msoTrue, Range("