如何在Outlook中使用VBA創建宏來調整圖像的大小

正如我的previous question所述，Outlook從粘貼工具中粘貼屏幕抓取的默認大小爲125％x 125％，而我想它是100％x 100％。代替實際更改默認設置，我想製作一個宏來調整圖像大小。如何在Outlook中使用VBA創建宏來調整圖像的大小

我在VBA PowerPoint中做過類似的事情，但每個應用程序似乎都不一樣。例如，我試圖代碼

Sub Resize_Outlook4() 
    With ActiveDocument.InlineShapes(1) 
     .ScaleHeight = 150 
     .ScaleWidth = 150 
    End With 
End Sub

以下從MSDN一個實例，其應該調整所有的內聯的形狀，以150％×150％，但是這將導致一個錯誤「運行時錯誤‘424’：對象需要」。

總之，我很難指定一個代表當前所選圖片的對象，或者只是指定電子郵件中的所有圖片。有誰知道如何正確地做到這一點？

來源

2014-05-18 Kurt Peek

'ActiveDocument'是MS Word對象模型中的對象。你需要引用一個特定的'MailItem'對象。說實話：我認爲*正確*做到這一點的方式是改變默認設置。宏不需要這樣做。 –

我認爲這應該工作，但我還是建議簡單地更改默認設置...

Sub Resize150() 

    Dim objDoc As Object 
    Dim shp As Object 
    'Get the word-editor of the mail item 
    If Application.ActiveInspector Is Nothing Then Exit Sub 
    Set objDoc = Application.ActiveInspector.WordEditor 
    For Each shp In objDoc.InlineShapes 
     If shp.HasPicture Then 
      shp.ScaleHeight = 150 
      shp.ScaleWidth = 150 
     End If 
    Next 

End Sub

來源

2014-05-18 14:29:27

如何在Outlook中使用VBA創建宏來調整圖像的大小

回答

相關問題