Excel VBA-最初の画像はエクスポート前にロードされません

Question

私はpdfにエクスポートする必要があるいくつかのExcelワークブックがあるフォルダを持っています。各ブックの各シートにロゴ（.bmp）があります。以下のコードを使用すると、最初のページにのみロゴが表示されます（代わりにグレーのプレースホルダが表示されます）。残りのページにはロゴがあります。

マイコード：

Option Explicit 
Sub dsPdf() 
Dim path  As String 
Dim wbName  As String 

Dim tWb   As Workbook 
Dim t   As Single 

path = ThisWorkbook.path 
wbName = Dir(path & "\*.xlsx") 

Application.ScreenUpdating = True 
Do While wbName <> "" 
    Set tWb = Workbooks.Open(path & "\" & wbName) 
    tWb.Sheets(Array(1, 2, 3)).Select 
    DoEvents 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
     path & "\" & Left(wbName, Len(wbName) - 4) & "pdf", _ 
     Quality:=xlQualityStandard, IncludeDocProperties:=True, _ 
     IgnorePrintAreas:=False, OpenAfterPublish:=False 

    tWb.Close False 
    wbName = Dir 
Loop 



End Sub 

私はActiveSheet.RefreshAllとDoEventsを使用してみました、だけでなく、Timer/Do Whileループを追加しました。エクスポート文の前にStopを置くと、最初のシートにロゴが正しく表示されます。しかし、私はAplication.Wait(Now...を入れてもロゴは表示されません。

アイデア？ ありがとう

Answer 1

これを試してください - 私は.Selectの使用を避けましたが、私はそれがいくつかの問題を引き起こしていると思います。

Sub dsPdf_NoSelect() 
Dim path  As String 
Dim wbName  As String 

Dim tWb   As Workbook 
Dim t   As Single 
Dim i As Long 

path = ThisWorkbook.path 
wbName = Dir(path & "\*.xlsx") 

Application.ScreenUpdating = True 
Do While wbName <> "" 
     Set tWb = Workbooks.Open(path & "\" & wbName) 
    For i = 1 To 3 
     tWb.Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, Filename:=path & "\" & Left(wbName, Len(wbName) - 4) & "pdf", _ 
     Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False 
    Next i 
    tWb.Close False 
    wbName = Dir 
Loop 

End Sub