解決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