Resizing Inkpicture ink before pasting

[Aussiebear]

This section of code adjusts your image size. Perhaps this might give you some ideas?

Sub PicResize()
    Dim PercentSize As Integer
    PercentSize = 75
    If Selection.InlineShapes.Count > 0 Then
        Selection.InlineShapes(1).ScaleHeight = PercentSize
        Selection.InlineShapes(1).ScaleWidth = PercentSize
    Else
        Selection.ShapeRange.ScaleHeight Factor:=(PercentSize / 100), RelativeToOriginalSize:=msoCTrue
        Selection.ShapeRange.ScaleWidth Factor:=(PercentSize / 100), RelativeToOriginalSize:=msoCTrue
    End If
End Sub