Noteworthy the column widths are different when opened on different machines. If I had more time to invest I would be curious to find with code the parent objects of the pictures and examine any positioning they have such as top and left properties. Of different sized cells as well as theme choice. Some additional, fiddling the Size and Properties, Sizing option (move and size with cells / Do not etc.) does not seem to impact as long as the image lands cleanly in the same column on both systems. I didn't want to fiddle with sizing and scaling) so that it landed in column A on second system, it was good. On the first system where a circle landed in column A, it landed half in A and half in B on second system where distorted. The picture giving me trouble was landing in different cells on different systems. Remoting into another machine and working side by side on multiple displays I had a Eureeka moment. Size and properties, Properties, Move and size with cells helped a little more but did not fix it for me (more below). Setting the Metro / Metropolitan theme helped but did not fix it. So perhaps this is still insightful for this issue? My related issue is that images appear differently on different machines. I just realized I had a thematically related issue and wrote it from that perspective. 'Code below zooms in and out of every sheet on my page.ĪctiveWorkbook.Sheets("Step 1 Itinerary").ActivateĪctiveWorkbook.Sheets("Step 2 Park Fees").ActivateĪctiveWorkbook.Sheets("Step 3 Lodges").ActivateĪctiveWorkbook.Sheets("Step 4 Extras").ActivateĪctiveWorkbook.Sheets("Step 5 Review").ActivateĪctiveWorkbook.Sheets("Step 1 Itinerary").Activate 'returns user to first sheet IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True MsgBox "The operation was not successful"ĪctiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Opendialog, Quality:=xlQualityStandard, _ Opendialog = Application.GetSaveAsFilename(Sheets("Step 1 Itinerary").Range("F7").Value & " Workbook - " & Format(Now, "yyyy-mm-dd hhmm"), filefilter:="PDF Files (*.pdf), *.pdf", _ The code I used is below: Sub PrintPDFEntireWorkbook() Hopefully this will help someone else facing this problem as I found no fix online. So all I did is add a short macro to my print pdf macro to access each page and zoom in and out again to the desired level and this worked. So every time I saved a pdf I'd have to zoom in and zoom out and the images would return to normal. Into them (keeping the rest of the document in the same zoom level). Actually, it doesn't resize the images, it zooms When I'm using MACRO's and when I save a worksheet as PDF it works fine, but Workbooks PDF causes all images on my sheets to expand. A bit late in the game but I may have found a workaround for this problem.
0 kommentar(er)
