建议转成PDF然后，采用Vb做个链接就可以了。

Sub OnOpen( )

Dim i, PicNo,LayerVisible(32)

HMIRuntime.Tags("000_INT_ctrl_setpoint_setting_numkeypad_visible").Write 0

if Left(ScreenItems("txtAnlagenteil").Parent.Parent.ObjectName,7)<>"Preview" Then

          PicNo=Right(ScreenItems("txtAnlagenteil").ObjectName,4)

        HMIRuntime.Tags("000_INT_navigation_16B_picnumber_complete").write PicNo

End if

For i=0 To 30

   LayerVisible(i)= HMIRuntime.Tags("000_INT_layer_"&  Right ("0"& i,2)&"_visible").read

    Layers(i+1).Visible=LayerVisible(1)

Next

 Layers(32).Visible=0

ScreenItems("AcrobPDF").setPageMode("bookmarks")

ScreenItems("AcrobPDF").setView("Fit")

ScreenItems("AcrobPDF").LoadFile(HMIRuntime.ActiveProject.Path &"\Doku\Elektrik\75912335 Schaltplan VM.PDF"

ScreenItems("AcrobPDF").setlayoutMode("Singlepage")

ScreenItems("AcrobPDF").setCurrentPage(1)

End Sub

我们项目中的实例供你参考。