Theunie1965
Gebruiker
- Lid geworden
- 16 apr 2018
- Berichten
- 197
Mooi zo.
Hoi Gestest en helaas maakt geen nieuwe QR code maar behoudt de code van kolom B
Gr Theunie
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
Mooi zo.
Sub Afgeronderechthoek4_Klikken()
'
' Afgeronderechthoek4_Klikken Macro
'
'
Dim lRow As Long
Dim oShape As Object
Dim oQR As Object
With ActiveSheet
For Each oShape In .Shapes
If oShape.Type = msoPicture Then
oShape.Delete
End If
Next
For lRow = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
Set oQR = .Cells(lRow, 2)
If Cells(lRow, 1) <> "" Then
With ActiveSheet.Pictures.Insert("https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=" & .Cells(lRow, 1).Value)
.ShapeRange.LockAspectRatio = msoFalse
.Width = oQR.Width
.Height = oQR.Height
.Top = oQR.Top
.Left = oQR.Left
.Placement = xlMoveAndSize
End With
End If
If Cells(lRow, 45) <> "" Then
With ActiveSheet.Pictures.Insert("https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=" & .Cells(lRow, 45).Value)
.ShapeRange.LockAspectRatio = msoFalse
.Width = oQR.Offset(, 44).Width
.Height = oQR.Offset(, 44).Height
.Top = oQR.Offset(, 44).Top
.Left = oQR.Offset(, 44).Left
.Placement = xlMoveAndSize
End With
End If
Next
Application.Goto .Cells(1)
End With
End Sub
(evt vertalen)
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.