Assign object to cell/row

[jealex1514]

I have an inventory system set to add and remove data to a sheet from a user form. On that sheet I also have QR codes (as objects) generated by certain data in the inventory row. Is there any way to attach the QR code to a cell or to that row so that if I delete the item from the inventory (the row of data on the sheet) from a user form, it also removes the associated QR code? TIA

 

[ExceLoki]

select the image and right click select size and properties. in the side menu, under properties, select move and size with cells.

 

[Engberg]

If you have a lot of pictures and/or want to do it through a macro you can use this:

Sub attachImageToCell()
    Dim p As Picture
    For Each p In ActiveSheet.Pictures
        p.Placement = xlMove 'or xlMoveAndSize
    Next
End Sub

To delete pictures along with cells they intersect, try this:

Sub deletePicture()
    Dim p As Picture
    Set Rng = ActiveSheet.Range("A1:H1") 'CHANGE THIS RANGE TO SUIT YOUR NEED
    For Each p In ActiveSheet.Pictures
        topCorner = p.TopLeftCell.Address
        If Not Intersect(Rng, ActiveSheet.Range(topCorner)) Is Nothing Then
              p.Delete
        End If
    Next
End Sub

 

[jealex1514]

Thank you for the advice!