Auto-Size Pasted Picture/Snippet to Fit Cell Height and Width

[anonymo123]

I’m trying to create a set of flashcards in Excel that utilizes a named range lookup for the active flashcard (one example here: https://youtu.be/rTyZmSHDLBA), which works fine.

If the image is larger than the referenced cell being looked up, then the named range formula doesn’t work correctly. So, I’m trying to figure out a way to either resize the cells the image touches or resize the image to fit the cell. Either solution would be sufficient.

Not sure if this is helpful, but I added a sample file.

Thanks for your help!Book2.xlsm

[p45cal]

This snippet will act in relation to the cell that the selected image's top left corner is in:
1. To reposition the image to the very top left of the cell
2. To adjust the cell size to fit the image. The column width will only increase if necessary (it won't reduce (this is because I've assumed all your pictures are in the same column)):

Sub blah()
With Selection.TopLeftCell
  Selection.Top = .Top
  Selection.Left = .Left
  .RowHeight = Selection.Height
  For i = 1 To 3
    .ColumnWidth = Application.Max(.ColumnWidth, Selection.Width * .ColumnWidth / .Width)
  Next i
End With
End Sub

[p45cal]

Grrr. Cross posted without telling us, wholesale:
https://www.mrexcel.com/forum/excel-...ml#post5135111
https://chandoo.org/forum/threads/au...d-width.39645/
https://www.ozgrid.com/forum/forum/h...ight-and-width