解决word中的文档复制到博客中图片不清晰的问题

 

 

 

 

 

再把代码粘一遍，意外发现OneNote上粘过来的东西是以图片的形式粘贴

 

Sub 设置图片原图大小显示
'仅适用于嵌入式图片
    Dim oInlineShape As InlineShape
    For Each oInlineShape In ActiveDocument.InlineShapes
        With oInlineShape
            .LockAspectRatio = msoTrue    '锁定纵横比
           .ScaleHeight = 100
           .ScaleWidth = 100
        End With
    Next
End Sub

 

参考链接

https://www.cnblogs.com/xqzt/p/4419278.html