vba creating a PDF from an excel sheet but pictures are poor quality

[cjcass]

Hi,
I have the code below which selects a range in excel and prints it to a PDF. The range is mainly made up of text boxes, graphs, shapes and 3 pictures. The quality in the PDF is excellent apart from the pictures which are poor (fuzzy) and let the rest down. Any ideas of how I could change the code or some settings to make the pictures in the PDF the same high quality as they appear in Excel?? In Excel I have selected 'don't compress images' and the default resolution is 'high fidelity'.
Thanks,

Dim Opendialog As String
    
    Opendialog = Application.GetSaveAsFilename(Replace(Sheet88.[S16].Value, " /", ","), "PDF (*.pdf), *.pdf")
    Opendialog = Replace(Opendialog, "/", ",")
    If Opendialog = "False" Then Exit Sub
    
    If Dir(Opendialog) <> "" Then
        Err = MsgBox("File already exists. Do you want to overwrite existing file ?", vbQuestion + vbYesNo, "File already exists")
        If Err = vbNo Then Exit Sub
    End If
    
    ActiveSheet.Range("B3:L149").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Opendialog _
    , Quality:=xlQualityHigh, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=True

 

[cjcass]

anyone any ideas on this one??

 

[cjcass]

have still got this issue so any help much appreciated

 

[cjcass]

Hi,
I think I might have cracked this just by playing around - I changed the code above to Quality:=xlQualityHighest and it seems to have done the trick!!