How to resize a screen capture and paste smaller

I often use the snipping tool to capture a section of the screen,
I need a macro that will paste the capture at a specific size.

one suggestion, which doesn't seem to work was:
style='color:#111111'>Sub PasteAndResizeImageInCurrentEmail()
Dim objInspector As Inspector
Dim objDoc As Object
Dim objSelection As Object
Dim objShape As Object

' Get the current inspector
Set objInspector = Application.ActiveInspector
If Not objInspector Is Nothing Then
' Get the document and selection
Set objDoc = objInspector.WordEditor
Set objSelection = objDoc.Application.Selection

' Paste the image from the clipboard
objSelection.Paste

' Resize the image
Set objShape = objDoc.InlineShapes(1)
With objShape
.LockAspectRatio = msoTrue
.Width = 200 ' Set the width in points
End With
Else
MsgBox "No active email window found.", vbExclamation
End If
End Substyle='font-size:12.0pt;color:#111111'>

I am not exactly sure what your question is.

The macro you provided (when cleaned up) does past the current clipboard image contents into the current email body at the insertion point and then resizes it to 200 points wide.

Are you trying to instead change the font size and color of any text that is on the clipboard when it is pasted?

Public Sub PasteAndResizeImageInCurrentEmail() Dim objInspector As Inspector Dim objDoc As Object Dim objSelection As Object Dim objShape As Object Set objInspector = Application.ActiveInspector If Not objInspector Is Nothing Then Set objDoc = objInspector.WordEditor Set objSelection = objDoc.Application.Selection objSelection.Paste Set objShape = objDoc.InlineShapes(1) With objShape .LockAspectRatio = msoTrue .Width = 200 ' Set the width in points End With Else MsgBox "No active email window found.", vbExclamation End If End Sub

I'm having trouble inserting it as a vba command.
see the attached
Thanks,
Hal

Looks complicated, I use SnagIt and just tell the editor to resize.

If posting on this or other forums I just use the Snipping Tool, paste it in the click the image to get it outlined then drag one corner toward the middle to make smaller keeping the high to wide ratio the same. It doesn't work on the Windows 10 Help Forums as I can't paste directly, have to Save then Insert the image.

gyro2222 said:

I'm having trouble inserting it as a vba command.

Click to expand...

I am sorry but I don't understand. The code you posted has nothing to do with the pic. Please see this article that covers the basics of adding an Outlook Macro

How to use Outlook's VBA Editor