我的代码:
MsgBox(doc.InlineShapes.Count)
If doc.InlineShapes.Count <= 0 Then
txtJieguo.Text = txtJieguo.Text & "考点3、图片格式设置失败,图片不存在" & vbCrLf
Else
If doc.InlineShapes(1).ConvertToShape.ZOrderPosition = Microsoft.Office.Core.MsoZOrderCmd.msoBringForward Then
txtJieguo.Text = txtJieguo.Text & "考点3、图片格式成功" & vbCrLf
Else
txtJieguo.Text = txtJieguo.Text & "考点3、图片格式设置失败" & vbCrLf
End If
End If
问题:Word文档中有图片,但是提示数量为0。请高手帮帮忙吧!本代码使用VB.net编写
------解决方案--------------------------------------------------------
回复