VBA 动态显示图片，求代码注释！！

2025-02-22 11:35:58

推荐回答（2个）

回答1：

Shapes.SelectAll 选中所有图片
Selection.ShapeRange.Delete 删除
Selection.ShapeRange.Fill.Visible = msoFalse 填充色不可见
Selection.ShapeRange.Shadow.Obscured = msoTrue 指定形状的阴影有填充并被该形状所遮蔽
Selection.ShapeRange.Shadow.Type = msoShadow18 指定与形状一起显示的阴影类型为第18个类型
Selection.ShapeRange.Fill.UserPicture "d:\" & Range("A1").Value & ".jpg" 用图像填充指定的形状。图像的路径在"d:\" & Range("A1").Value & ".jpg"

参见excelVBA帮助

回答2：

那几句没法理解呀！这个代码貌似EXCELHOME 论坛的袁竹平写的