寫帶有清晰圖片的部落格：如何將word中的圖片複製到windows live writer保持大小不變--清晰度不變

標籤：

寫blog的習慣，先在word寫了，複製到windows live writer，再發布到部落格園。word中的文章，圖片有縮放比例，複製到windows live writer後圖片變得不清晰。除了一張一張

設定圖片縮放比例為100%外，再複製到windows live writer。這樣做太麻煩。就百度了下面的解決辦法。

word中圖片小，複製出來的就不清楚，你需要設定圖片大小為原始大小，複製到windows live writer圖片才可能清楚。

還需要設定Windows live writer圖片預設大小為原始大小。如果是小圖片，還是不清楚。

需要以下兩步你就能夠寫出帶有清晰圖片的部落格。

一、將以下word中的圖片大小更改為原始大小。

這裡使用宏，將word中的圖片全部更改為原始大小。

宏 :如果在 Microsoft Word 中反覆執行某項任務，可以使用宏自動執行該任務。宏是一系列 Word 命令和指令，這些命令和指令組合在一起，形成了一個單獨的命令，以實現任務執行的自動化

開啟你想發布到部落格的word文檔，按alt+F8，開啟如下所示視窗，輸入名稱 set100，可以隨便給個名稱就行。

點擊“建立”。

將以下指令碼複製到

Sub set100() Dim j As Long  ‘計數圖片個數For j = 1 To ActiveDocument.InlineShapes.Count ‘檔案中圖片總個數，圖片類型為inlineshapes ActiveDocument.InlineShapes(j).ScaleHeight = 100 ‘設定高度顯示比例ActiveDocument.InlineShapes(j).ScaleWidth = 100  ‘設定寬度顯示比例Next j End Sub

退出

再按alt+F8，開啟宏對話方塊，選中，set100函數，點擊“運行”。

就把文章中的所有圖片大小還原到原始大小。然後將這些圖片拷貝到windows live writer 清晰度不變。

二、設定windows live writer圖片預設大小。

在windows live writer，點中圖片，出現格式設定，選中“原始大小”，再點擊“設定為預設設定”。以後再在windows live writer複製帶有圖片的word文章，圖片清晰度不變。

What‘s More

下面代碼和上面的set100實質是一樣的，只是迴圈標示不一樣。一個for 一個for each。

ScaleHeight 和Height 分別表示百分比和像素，msoTrue 和msoFalse 分別表示鎖定縱橫比和非縱橫比，自己調整即可看。

統一圖片尺寸百分比

Sub 統一圖片尺寸()‘僅適用於嵌入式圖片    Dim oInlineShape As InlineShape    For Each oInlineShape In ActiveDocument.InlineShapes        With oInlineShape            .LockAspectRatio = msoTrue    ‘鎖定縱橫比           .ScaleHeight = 100           .ScaleWidth = 100        End With    NextEnd Sub

統一圖片尺寸像素

1cm=28.4像素

Sub 統一圖片像素大小()‘僅適用於嵌入式圖片    Dim oInlineShape As InlineShape    For Each oInlineShape In ActiveDocument.InlineShapes        With oInlineShape            .LockAspectRatio = msoFalse    ‘不鎖定縱橫比           .Height = 100           .Width = 100        End With    NextEnd Sub

參考:

http://91xueit.blog.51cto.com/400469/1114249

http://www.cnblogs.com/cmt/archive/2011/09/26/live_writer_insert_image.html

http://blog.csdn.net/biyusr/article/details/11472337

 

寫帶有清晰圖片的部落格：如何將word中的圖片複製到windows live writer保持大小不變--清晰度不變