Экспорт в PDF макроса с отсутствующими фигурами

Question

У меня есть макрос, который после нажатия кнопки генерирует изображение штрих-кода (изображение состоит только из фигур), а после этого экспортирует 3 листа в файл PDF. У меня проблема в том, что при этом будет сгенерировано изображение штрих-кода, но при экспорте в PDF формы, которые были использованы для создания штрих-кода, не отображаются. Они будут отображаться, если я распечатываю или печатаю в pdf без использования макроса экспорта в pdf, но это побеждает точку макроса.

Еще большая головная боль состоит в том, что этот код находится в другой версии электронной таблицы (шаблон является шаблоном), но процесс макросов в этой электронной таблице работает нормально. Я скопировал / вставил рабочий код в электронную таблицу, которая доставляет мне проблемы, а создатель проблем все еще не работает. Ниже приведен соответствующий код. Почему фигуры не включены в экспортированный PDF-файл?

 Sub BevelPrint_Click()
' DisplayBarcode generates a code128 scannable barcode. Max of 14 characters for the selected line width and max width

Call DisplayBarcode

Sheets(Array("(Cal Cert) Page 1 of 3", "(Cal Cert) Page 2 of 3", "(Cal Cert) Page 3 of 3")).Select
   ' If Application.Dialogs(xlDialogPrinterSetup).Show = True Then
   Dim varResult As Variant
   Dim ActBook As Workbook
   Dim defaultPath As String
   Dim WorkbookName As String
   'Dim fso As New Scripting.FileSystemObject
   ' WorkbookName = fso.GetBaseName(ThisWorkbook.Name)
   WorkbookName = ThisWorkbook.Sheets("(0) Calibration System QC").Range("B2").Value
   WorkbookName = WorkbookName & " Cert"




   defaultPath = "\\TSISVFP01\MANUFACTURING\W405 - Particle\"
   defaultPath = defaultPath & WorkbookName
        'displays the save file dialog
   varResult = Application.GetSaveAsFilename(FileFilter:= _
            "PDF File (*.pdf), *.pdf, Excel Files (*.xlsx), *.xlsx", Title:="Save Cert as PDF", _
            InitialFileName:=defaultPath)

   If varResult <> False Then
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        varResult, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
    End If
   ' End If
    Sheets("(0) Calibration System QC").Select
End Sub

Sub DisplayBarcode()
Dim s As Shape
    ThisWorkbook.Worksheets("(Cal Cert) Page 1 of 3").Activate
   For Each s In ThisWorkbook.Worksheets("(Cal Cert) Page 1 of 3").Shapes
        If s.Name Like "*Straight*" Then
            ThisWorkbook.Worksheets("(Cal Cert) Page 1 of 3").Shapes(s.Name).Select
         Selection.Delete
        End If

   Next s

   Code128Generate_v2 184, 72, 9, 1.5, Worksheets("(Cal Cert) Page 1 of 3"), ThisWorkbook.Sheets("(0) Calibration System QC").Range("B2"), 40
    Dim t As Shape
    For Each t In ThisWorkbook.Worksheets("(Cal Cert) Page 1 of 3").Shapes
        t.ControlFormat.PrintObject = True
    Next t
End Sub