As an IT Consultant, I frequently have to send Outlook emails containing screenshots. In the old, old days, I’d press the PrintScreen key, paste into Paint (I will miss you old friend as you are seen to be retired), select what I needed and then paste into the email. Then along came the Snipping Tool which made things a little easier but it still means going away from your email and then coming back. Oh, and don’t go on about third-party tools – I stick with what’s built-in then I know I’ve got it wherever I go.
It seems to be a little known/used fact that you can add a screen capture button directly to the quick access toolbar (QAT) in all recent Microsoft Office products. So I added this to the QAT but what I then found myself doing for pretty much every screenshot was to shrink it which either involved dragging the resize points around or quite a few clicks and key presses in the email message which kind of cancelled out the ease of getting the image in there in the first place.
Taking VBA code I found here and here (I was going to write it from scratch but these were almost exactly what I needed so why reinvent this wheel thing?), I ended up with the following VBA code, placed in the ThisOutlookSession object (hit Alt F11 to bring up the Outlook VBA editor):
Public Sub Shrinker() Const wdInlineShapePicture = 3 If TypeName(ActiveWindow) = "Inspector" Then If ActiveInspector.IsWordMail And ActiveInspector.EditorType = olEditorWord Then If ActiveInspector.WordEditor.Application.Selection.InlineShapes.Count > 0 Then For Each wrdShp In ActiveInspector.WordEditor.Application.Selection.InlineShapes If wrdShp.Type = wdInlineShapePicture Then wrdShp.ScaleHeight = wrdShp.ScaleHeight - 10 wrdShp.ScaleWidth = wrdShp.ScaleWidth - 10 End If Next End If End If End If Set wrdShp = Nothing End Sub
You can then add a button to the QAT in an email compose window that calls this code:
Notice the “Screen Clipping” button which is added thus:
Which will then give you these toolbar buttons in your email compose window:
You can then click the screen capture icon when needed which will hide the email compose window, give you cross hairs to select the region you need and once released it will be pasted into your email, selected, which will come back into focus:
If you need to resize then click on the QAT button you assigned to the Shrinker macro which will scale it down by 10% each time you click it. If you want to grow it again, just hit Ctrl Z to undo. If you need to enlarge rather than shrink, duplicate the macro and put +10 instead of -10 and assign this macro to the QAT too.
I hope this helps save you lots of time which it has for me. Don’t forget to save the macro – the easiest way is to close Outlook and click Yes when it asks whether to save ThisOutlookSession.