AnsweredAssumed Answered

esa.SaveScreenImage "d:\SES_ACM_Plots\picture.gif", Agt_ImageFormat_GIF

Question asked by ravikaswan on Oct 10, 2015
Latest reply on Oct 21, 2015 by simon_coleby
Dear Team,

PFA sheet content of programming as below:-

Option Explicit
    Public rm As VisaComLib.ResourceManager
    Public inst As VisaComLib.FormattedIO488
    Public esa As ESAEZ
    Public gpib As IGpib
  
Sub ckeckconnection()
    Set rm = New VisaComLib.ResourceManager
    Set inst = New VisaComLib.FormattedIO488
    Set inst.IO = rm.Open("GPIB0::18")
    Dim idn As String
  
    inst.WriteString "*IDN?"
    idn = inst.ReadString()
    MsgBox "Connected Instrument is: " & idn, vbOKOnly, "IDN Result"
End Sub
 
Sub connectesa()
    Set rm = New VisaComLib.ResourceManager
    Set inst = New VisaComLib.FormattedIO488
    Set inst.IO = rm.Open("GPIB0::18")
End Sub
 
Sub esascreen()
    Set esa = New ESAEZ
    esa.Connect ("GPIB0::18::INSTR")
    esa.GetScreenImage
    esa.SaveScreenImage "d:\SES_ACM_Plots\picture.gif", Agt_ImageFormat_GIF <-- IT GIVES THE ERROR HERE
End Sub
 
Sub InsertPicture(PictureFileName As String, TargetCells As Range)
    Dim p As Object, t As Double, l As Double, w As Double, h As Double
    If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub
    If Dir(PictureFileName) = "" Then Exit Sub
    Set p = ActiveSheet.Pictures.Insert(PictureFileName)
    With TargetCells
        t = .Top
        l = .Left
        w = .Offset(0, .Columns.Count).Left - .Left
        h = .Offset(.Rows.Count, 0).Top - .Top
    End With
    With p
        .Top = t
        .Left = l
        .Width = w
        .Height = h
    End With
    Set p = Nothing
End Sub
 
Sub disconnectesa()
    Set rm = New VisaComLib.ResourceManager
    Set gpib = rm.Open("GPIB0::18")
    gpib.ControlREN (GPIB_REN_GTL)
    gpib.Close
End Sub
 
Sub S7ALLIF()
    Call S7IF11
    Call S7IF13
    Call S7IF15
    Call S7IF12
    Call S7IF14
    Call S7IF16
    Call S7IF21
    Call S7IF23
    Call S7IF25
    Call S7IF22
    Call S7IF24
    Call S7IF26
End Sub
 
Sub S7IF11()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF11.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B2")
    Call disconnectesa
End Sub
 
Sub S7IF13()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF13.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B4")
    Call disconnectesa
End Sub
 
Sub S7IF15()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF15.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B6")
    Call disconnectesa
End Sub
 
Sub S7IF12()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF12.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B8")
    Call disconnectesa
End Sub
 
Sub S7IF14()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF14.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B10")
    Call disconnectesa
End Sub
 
Sub S7IF16()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF16.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B12")
    Call disconnectesa
End Sub
 
Sub S7IF21()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF21.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B14")
    Call disconnectesa
End Sub
 
Sub S7IF23()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF23.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B16")
    Call disconnectesa
End Sub
 
Sub S7IF25()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF25.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B18")
    Call disconnectesa
End Sub
 
Sub S7IF22()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF22.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B20")
    Call disconnectesa
End Sub
 
Sub S7IF24()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF24.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B22")
    Call disconnectesa
End Sub
 
Sub S7IF26()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7IF26.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B24")
    Call disconnectesa
End Sub
 
Sub S7ALLKPA()
    Call S7KPA11
    Call S7KPA13
    Call S7KPA15
    Call S7KPA12
    Call S7KPA14
    Call S7KPA16
    Call S7KPA21
    Call S7KPA23
    Call S7KPA25
    Call S7KPA22
    Call S7KPA24
    Call S7KPA26
End Sub
 
Sub S7KPA11()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA11.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D2")
    Call disconnectesa
End Sub
 
Sub S7KPA13()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA13.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D4")
    Call disconnectesa
End Sub
 
Sub S7KPA15()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA15.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D6")
    Call disconnectesa
End Sub
 
Sub S7KPA12()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA12.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D8")
    Call disconnectesa
End Sub
 
Sub S7KPA14()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA14.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D10")
    Call disconnectesa
End Sub
 
Sub S7KPA16()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA16.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D12")
    Call disconnectesa
End Sub
 
Sub S7KPA21()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA21.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D14")
    Call disconnectesa
End Sub
 
Sub S7KPA23()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA23.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D16")
    Call disconnectesa
End Sub
 
Sub S7KPA25()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA25.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D18")
    Call disconnectesa
End Sub
 
Sub S7KPA22()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA22.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D20")
    Call disconnectesa
End Sub
 
Sub S7KPA24()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA24.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D22")
    Call disconnectesa
End Sub
 
Sub S7KPA26()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7KPA26.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D24")
    Call disconnectesa
End Sub
 
Sub S7ALLTXH()
    Call S7TX11
    Call S7TX13
    Call S7TX15
    Call S7TX12
    Call S7TX14
    Call S7TX16
    Call S7TXALLH
End Sub
 
Sub S7ALLTXV()
    Call S7TX21
    Call S7TX23
    Call S7TX25
    Call S7TX22
    Call S7TX24
    Call S7TXALLV
End Sub
 
Sub S7TX11()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX11.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F2")
    Call disconnectesa
End Sub
 
Sub S7TX13()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX13.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F4")
    Call disconnectesa
End Sub
 
Sub S7TX15()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX15.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F6")
    Call disconnectesa
End Sub
 
Sub S7TX12()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX12.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F8")
    Call disconnectesa
End Sub
 
Sub S7TX14()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX14.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F10")
    Call disconnectesa
End Sub
 
Sub S7TX16()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX16.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F12")
    Call disconnectesa
End Sub
 
Sub S7TX21()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX21.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F14")
    Call disconnectesa
End Sub
 
Sub S7TX23()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX23.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F16")
    Call disconnectesa
End Sub
 
Sub S7TX25()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX25.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F18")
    Call disconnectesa
End Sub
 
Sub S7TX22()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX22.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F20")
    Call disconnectesa
End Sub
 
Sub S7TX24()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX24.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F22")
    Call disconnectesa
End Sub
 
Sub S7TX26()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TX26.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F24")
    Call disconnectesa
End Sub
 
Sub S7TXALLH()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TXALLH.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("B26")
    Call disconnectesa
End Sub
 
Sub S7TXALLV()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7TXALLV.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("D26")
    Call disconnectesa
End Sub
 
Sub S7ALLRXV()
    Call S7RX11
    Call S7RX13
    Call S7RX15
    Call S7RX12
    Call S7RX14
    Call S7RX16
    Call S7RXALLV
End Sub
 
Sub S7ALLRXH()
    Call S7RX21
    Call S7RX23
    Call S7RX25
    Call S7RX22
    Call S7RX24
    Call S7RXALLH
End Sub
 
Sub S7RX11()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX11.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H2")
    Call disconnectesa
End Sub
 
Sub S7RX13()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX13.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H4")
    Call disconnectesa
End Sub
 
Sub S7RX15()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX15.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H6")
    Call disconnectesa
End Sub
 
Sub S7RX12()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX12.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H8")
    Call disconnectesa
End Sub
 
Sub S7RX14()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX14.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H10")
    Call disconnectesa
End Sub
 
Sub S7RX16()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX16.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H12")
    Call disconnectesa
End Sub
 
Sub S7RX21()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX21.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H14")
    Call disconnectesa
End Sub
 
Sub S7RX23()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX23.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H16")
    Call disconnectesa
End Sub
 
Sub S7RX25()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX25.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H18")
    Call disconnectesa
End Sub
 
Sub S7RX22()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX22.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H20")
    Call disconnectesa
End Sub
 
Sub S7RX24()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX24.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H22")
    Call disconnectesa
End Sub
 
Sub S7RX26()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RX26.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H24")
    Call disconnectesa
End Sub
 
Sub S7RXALLH()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RXALLH.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("H26")
    Call disconnectesa
End Sub
 
Sub S7RXALLV()
    Call connectesa
    inst.WriteString ":MMEM:LOAD:TRAC1 'c:\S7RXALLV.trc'", True
    inst.WriteString ":TRAC2:MODE WRIT", True
    Application.Wait (Now() + TimeValue("00:00:05"))
    Call esascreen
    InsertPicture "d:\SES_ACM_Plots\picture.gif", Range("F26")
    Call disconnectesa
End Sub
 
 
If any suggestion pls suggest me.

Thanks
Ravinder Kumar  

Attachments

Outcomes