longqatar.blogg.se

The macros will not work with the top two options that disable all macros or unsigned macros. Private Function AspectHt(ByVal origWd As Long, ByVal origHt As Long, ByVal newWd As Long) As LongĪspectHt = (CSng(origHt) / CSng(origWd)) * newWdįirst: You need to have macro security set to the lowest setting, Enable all macros during testing. If objInsp.EditorType = olEditorWord Then ' 13 cm wide while preserving aspect ratio ' make all images (both inline and floating) You'll need to set a reference to the Word Object Model in the VB Editor's Tools > References. The picture size (in CM) is set in this line: This screenshot shows the original image size and the size after running the macro, with the picSize value set to 13: Select the images(s) or entire message.On the opened message's ribbon or menus: Go to Actions, Edit Message (Actions is in the Move section of the ribbon).To test the macro, select a message containing large images and press Ctrl+C to copy the message then press Ctrl+V several times to make copies of the message, so you have plenty of messages to work with as you determine the best size for your needs. To use this macro, you need to open the message and enable Editing.