Need a macro that can shift an image and format it

[sessilelessile]

Hi



I am new to VBA and macros, so any help would be greatly appreciated!

I am using a premade word template that my database fills when I pull information.
It is a label template.

I am trying to make a macro to shift one element on this label because I am unable to reformat the template.

When the database fills in the template it autogenerates a QR code (picture).

I need to shift the QR code -6 increments to the left, and also format it so it sits behind the other text on the label. The behind function is important because the QR has a white background that overlaps with the text on the label. Alternatively I would consider cropping the QR code.

I have tried writing my own macro and I was able to convert the image from inline to floating, have also been able to shift the image the -6 to the left.

However when I change the wrap formatting to behind. things go awry. The first page of the document works well, but every page after that only 1 QR code is left visible on the page, and the rest have somehow disappeared.

Any help would be great thank you!

Here is my current VBA code

Sub QR_Shift()
'
' QR_Shift Macro
'
With ActiveDocument
    For i = .InlineShapes.Count To 1 Step -1
    With .InlineShapes(i)
        If .Type = wdInlineShapePicture Then
        .ConvertToShape
        End If
    End With
Next
    For i = 1 To .Shapes.Count
        With .Shapes(i)
            If .Type = msoPicture Then
            .WrapFormat.Type = wdWrapBehind
            End If
        End With
Next
    For Each shap In ActiveDocument.Shapes
        shap.Select
        With .Shapes
            Selection.ShapeRange.IncrementLeft -6
        End With
Next
End With
End Sub

[macropod]

The required approach depends on whether the QR code is inserted in-line or floating. In any event, the solution might require nothing more complicated than making the QR code image slightly smaller.

[sessilelessile]

I wish I could simply resize the QR code but it is already being generated at the smallest useable size.

Thank you though

[macropod]

I believe you'll find the white space around the QR code is part of the QR code specification. That may be a fixed amount of white space or a white space proportional to the size of the QR code itself. Its reduction or removal (including by repositioning within the label) is liable to compromise the integrity of any QR code scanning. Placing the code behind the text will cause the text to intrude on that white space and potentially to obscure parts of the QR code itself.

[sessilelessile]

Thank you for the lesson on how QR codes work!

Thankfully the way the label template is set up there will always be room for the QR to have 'white space' around it (it gets printed on black metal so it's inverted), however the border is unnecessarily large.

With the QR code being manually manipulated to be "behind text" (picture formatting not literally behind text) and shifted to the left, it still functions. I just need a macro to repeat this process.

Best.

[macropod]

Originally Posted by sessilelessile

Thankfully the way the label template is set up there will always be room for the QR to have 'white space' around it (it gets printed on black metal so it's inverted), however the border is unnecessarily large.

In that case, simply changing the table cell border size may be all you need. That should be done once - in the mailmerge main document - before the merge is executed.