Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

Hello.

I managed to get the images into Excel.
And in the simplest way I think, almost not worth looking at but see code.
The images are already there when the BoM could be created, so these images are now used.
It is to my/our satisfaction, although I don't really have a reference it seems to go fast enough.
I read that Cell.Select could be slowing down?
No reference for this either, but I don't use it for posting the image.
It is in any case a relief or a funny sight to see the creation of the BoMs fully automatic and to obtain BoMs with absolute numbers on them.
I also discovered DictionaryOfDictionaries, man that's cool.
Collect the whole lot in a flash and at the end of that process ask what to do with it, genius.
Any collection of Parts/Sub Assys within a 'Combined Production Output Assembly' (I stopped using Phantom based on Parent relationships), and/or Weldment go as Dictionary to DictionaryOfDictionaries to open an Excel later and iterate over the Key and Value to fill the rows.
The Parts are pretty much the same, they are placed in a Dictionary based on our BreakDownStructure and then FE/SS to make a BoM at the end.

'----------------------------------------------------------------------------------------------------
' Add Picture
oImage = pair.Value & ".jpg"

Dim pic As Object																						
With pic
	'.Top = ExcelApp.activecell.Top
	'.Left = ExcelApp.activecell.Left		
	'.Width = ExcelApp.activecell.Width
	'.Height = ExcelApp.activecell.Height
	'.Anchor = range

End With

'pic = ExcelApp.ActiveSheet.Shapes.AddPicture(oImage, False, True, 0, 100, 150, 150)
' See above, pos x, pos y, width and height, width 150 is what we need when enlarging the picture regarding the resolution
pic = ExcelApp.ActiveSheet.Shapes.AddPicture(oImage, False, True, 0, yPosPic, 119.25, 123)
																						
yPosPic = yPosPic + rowHeight