I have a file that I am trying to send out as it cycles through a contact list specific to that contact.
I have some photos that are in my excel sheet. However, when I copy the photos to the new file, the photos are distorted and the height is incorrect. The width is correct. I would like all the photos to be 1.5" in height and to maintain the aspect ratio.
I also tried this code, but it also had distorted images.
The text and photos are in column E and the photos are associated with the contacts in column "F". It will email only the photos associated with that contact to that specific contact.
I have some photos that are in my excel sheet. However, when I copy the photos to the new file, the photos are distorted and the height is incorrect. The width is correct. I would like all the photos to be 1.5" in height and to maintain the aspect ratio.
VBA Code:
Set My_Range = Range("A1:G1000")
My_Range.Copy
Sheets("SHEET1").Range("A1").PasteSpecial xlPasteAll
Application.CutCopyMode = False
'Insert Today's Date
Range("H1").Value = DateI also tried this code, but it also had distorted images.
VBA Code:
tempFilename = TempFilePath & File & ".xlsx"
ActiveWorkbook.SaveAs FileName:=tempFilename, _
FileFormat:=xlOpenXMLWorkbook
Workbooks(File & ".xlsx").CloseThe text and photos are in column E and the photos are associated with the contacts in column "F". It will email only the photos associated with that contact to that specific contact.
