大家好，今天小编关注到一个比较有意思的话题，就是关于vb中怎样插入图片的问题，于是小编就整理了3个相关介绍vb中怎样插入图片的解答，让我们一起看看吧。
vb如何在图片框中装入图形？
1.首先，我们在空白的窗体上绘制一个图片框。
2.然后我们找到对应的Picture属性。
3.接下来我们点击属性值的小三点。
4.我们便会看到此载入图像页面。
5.此时，找到相应识别的图像后，我们点击打开按钮。
6.同理，我们也可以在代码窗口中实现这样的功能。
使用VB.NET向Excel插入图片？
图片插入方法：
Imports Spire.Xls
Namespace InsertImage
Friend Class Program
Shared Sub Main(ByVal args() As String)
'Create Workbook
Dim workbook As New Workbook()
Dim sheet As Worksheet = workbook.Worksheets(0)
'Insert Image
sheet.Pictures.Add(1, 1, "E:\work\sample.jpg")
'Save and Launch
workbook.SaveToFile("ExcelImage.xlsx", ExcelVersion.Version2010)
System.Diagnostics.Process.Start("ExcelImage.xlsx")
End Sub
End Class
End Namespace
VB中添加图片后，可以更改图片的大小吗？
可以用excel工具箱或者VBA。下面是列举一种VBA插入图片的方法。
Range("B"&i).Select选定B列的第i个单元格ActiveSheet.Pictures.Insert(ThisWorkbook.Path&"\图片\"&Cells(i,1)&".jpg").Select 这是插入图片，括号里面是插入图片的路径，我这里写的是和本excel同目录下的图片文件夹下的图片cells（i，1）表示第一列的第i个单元格为图片名称。
Selection.ShapeRange.LockAspectRatio=msoTrue锁定高宽比 Selection.ShapeRange.Height=200设置图片高度，以免图片插入变得很乱。200可以换成Rows(i).Height，这个就是表示第i行高度的方法。
12345678Sub插入图片() For i = 2 To [a65536].End(xlUp).Row Range("B"& i).Select ActiveSheet.Pictures.Insert(ThisWorkbook.Path &"\图片\" & Cells(i, 1) & ".jpg").Select Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Height = 200 NextEnd Sub
到此，以上就是小编对于vb中怎样插入图片的问题就介绍到这了，希望介绍关于vb中怎样插入图片的3点解答对大家有用。
