For Each item As Paragraph In WordDoc.Paragraphs
If item IsNot Nothing Then
If item.Range.Text.Trim() <> "" Then
If item.Range.InlineShapes.Count <> 0 Then
Dim imgname As Integer = 0
For Each shape As InlineShape In item.Range.InlineShapes
If shape.Type = WdInlineShapeType.wdInlineShapePicture Then
shape.Select()
WordApp.Selection.CopyAsPicture()
If Clipboard.ContainsImage() Then
Dim bmp As Bitmap = New Bitmap(Clipboard.GetImage())
imgname = imgname + 1
bmp.Save("C:\SHH\TMP" + temp + ".png", System.Drawing.Imaging.ImageFormat.Png)
End If
End If
Next
End If
End If
End If
,为什么Clipboard.ContainsImage()一直返回false
为什么word中图片拷贝后再剪切板中读取不到,求大神解答一下
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
1条回答 默认 最新
悬赏问题
- ¥15 为什么使用javacv转封装rtsp为rtmp时出现如下问题:[h264 @ 000000004faf7500]no frame?
- ¥15 乘性高斯噪声在深度学习网络中的应用
- ¥15 运筹学排序问题中的在线排序
- ¥15 关于docker部署flink集成hadoop的yarn,请教个问题 flink启动yarn-session.sh连不上hadoop,这个整了好几天一直不行,求帮忙看一下怎么解决
- ¥30 求一段fortran代码用IVF编译运行的结果
- ¥15 深度学习根据CNN网络模型,搭建BP模型并训练MNIST数据集
- ¥15 C++ 头文件/宏冲突问题解决
- ¥15 用comsol模拟大气湍流通过底部加热(温度不同)的腔体
- ¥50 安卓adb backup备份子用户应用数据失败
- ¥20 有人能用聚类分析帮我分析一下文本内容嘛