Hello,
I am trying to create an A3 sticker with options via VlookUp.
It is working, but I want it to be twice on the page so I can print 2 on an A4.
It only shows me the first or the last picture, but not both..
In cells I9 and I36 is a VerticalLookUp.
<tbody>
</tbody><colgroup><col span="3"></colgroup>
I am trying to create an A3 sticker with options via VlookUp.
It is working, but I want it to be twice on the page so I can print 2 on an A4.
It only shows me the first or the last picture, but not both..
In cells I9 and I36 is a VerticalLookUp.
Name | Picture Name | |
1 | Picture1 | |
2 | Picture2 | |
3 | Picture3 | |
4 | Picture4 |
<tbody>
</tbody><colgroup><col span="3"></colgroup>
Code:
Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
Sheets("B8-12 A3 ACTIE").Shapes("Dustco1").Visible = True
Sheets("B8-12 A3 ACTIE").Shapes("Bullduster1").Visible = True
Sheets("B8-12 A3 ACTIE").Shapes("Dustco2").Visible = True
Sheets("B8-12 A3 ACTIE").Shapes("Bullduster2").Visible = True
With Range("I9")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic
End With
With Range("I36")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic
End With
End Sub