怎样调整导出的excel中图片大小

[lxjlz]

代码如下,但插入的图片是原始图片大小,我改图片的大小调整成单元格的大小.
oXLApp = New Application()
oXLBook = oXLApp.Workbooks.Add()
oXLSheet = oXLBook.Worksheets("Sheet1") 'Work with the first worksheet

Dim cn As New OdbcConnection(strCon)
cn.Open()

Dim strSql As String = "Select * from products "

Dim cmd As New OdbcCommand(strSql, cn)
Dim dr As OdbcDataReader = cmd.ExecuteReader

With oXLSheet
.Columns("A:A").ColumnWidth = 22.25
While dr.Read
.Rows(intRow.ToString() + ":" + intRow.ToString()).RowHeight = 102
.Range("B" + (intRow).ToString() + ":B" + (intRow).ToString()).Value = dr("products_model")
.Range("C" + (intRow).ToString() + ":C" + (intRow).ToString()).Value = dr("products_image")

.Range("A" + (intRow).ToString() + ":A" + (intRow).ToString()).Select()

.Pictures.Insert( dr("products_image")).Select()

intRow += 1
End While
End With

oXLApp.Visible = True 'Show it to the user

[use_zj]

是不是可以设置控件属性

[水猿兵团五哥]

是导出到EXCEL中的内容有图片么？
建议先对图片进行处理后再贴进EXCEL
放进EXCEL中再处理有点麻烦

[wjy217213]

不太懂，友情帮顶！

[zhangkexun3]

dim xRange as range=oxlsheet.(图片格子)
dim shape1 as shape=xrange.value
shape1.width=w '自己设
shape1.height=h '自己设