Vba将sheet中图片展示到窗体图片
时间: 2023-09-11 18:10:51 浏览: 122
要在 VBA 中将工作表中的图片展示到窗体图片控件中,可以通过获取图片对象并将其赋值给图片控件的 Picture 属性来实现。以下是一个示例代码,可以将指定工作表中的第一张图片展示到窗体图片控件中:
```VBA
Private Sub ShowPicture()
Dim ws As Worksheet
Dim shp As Shape
Dim pic As Picture
' 指定要获取图片的工作表
Set ws = ThisWorkbook.Worksheets("Sheet1")
' 遍历工作表上的所有形状
For Each shp In ws.Shapes
If shp.Type = msoPicture Then ' 判断形状是否为图片
Set pic = shp.DrawingObject ' 获取图片对象
' 将图片展示到图片控件中
Me.Image1.Picture = pic
Exit For ' 只展示第一张图片
End If
Next shp
End Sub
```
这段代码在遍历工作表上的所有形状时,判断形状是否为图片,如果是,就获取图片对象并将其赋值给窗体图片控件的 Picture 属性。需要注意的是,这里只展示了工作表中的第一张图片,如果需要展示其他图片,可以根据需要进行修改。另外,需要确保窗体图片控件的 SizeMode 属性设置为 1 - fmPictureSizeModeStretch,以保证图片可以自适应控件大小进行展示。