From Friday, April 19th (11:00 PM CDT) through Saturday, April 20th (2:00 PM CDT), 2024, ni.com will undergo system upgrades that may result in temporary service interruption.
We appreciate your patience as we improve our online experience.
From Friday, April 19th (11:00 PM CDT) through Saturday, April 20th (2:00 PM CDT), 2024, ni.com will undergo system upgrades that may result in temporary service interruption.
We appreciate your patience as we improve our online experience.
07-03-2014 07:21 PM - edited 07-03-2014 07:26 PM
Hello leonard,
Im sorry i didn't put the value of pPath
Here is my revised code.
Public Sub lecroy_digi()
Dim o as Object
Dim pPath As String
Dim ipadd As String
Set o = CreateObject("LeCroy.ActiveDSOCtrl.1")
ipadd = ActiveSheet.Range("A1").Value
pPath = "C:\WAVEFORMS\BMPImage.jpg"
Call ActiveDSO1.MakeConnection("IP: " & ipadd)
Call ActiveDSO1.WriteString("VBS 'app.Hardcopy.HardcopyArea=GridAreaOnly'", True) '<<< code is effective, it can change the setup to "GridAreaOnly" in oscilloscope
Call ActiveDSO1.StoreHardcopyToFile("JPEG", "", pPath) '<< working but still the problem, hardcopy area is in "DSOWindow" setup not in "GridAreaOnly"
With ActiveSheet.Pictures.Insert(pPath).Select
Wid = Selection.Width
Hei = Selection.Height
Ratio = Wid / Hei
Selection.Delete
End With
With ActiveSheet.Shapes.AddPicture(pPath, False, True, 0, 0, 179, (179 / Ratio))
'.PictureFormat.CropTop = 24 ' <<< need to remove this and replaced with GridAreaOnly setup
'.PictureFormat.CropBottom = 54
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.LockAspectRatio = True
.Placement = xlMoveAndSize
End With
Call ActiveDSO1.Disconnect
End Sub
If you have any clarification, please feel free to reply.
Thanks and regards,
Jeff
FA Engineer
Lecroy user
07-07-2014 04:26 PM
Hi Jeff,
I probably just did not look at your comment about the DSO Window vs. the Grid Area.
I also did not notice the change back to the default value so I thought it would work for you as well.
Although the first command does set it, the storehardcopy function resets it to the default value.
Add "AREA,GRIDAREAONLY" between the emtpy double quotes, and make sure to add the double quotes around the path.
The pPath variable does not include the double quotes around it and it appears to need them in the command. (I am running all of this from Excel and will need to find the right way to add them with a CHAR(XX)).
Here is my snippet that worked for me:
Call o.StoreHardcopyToFile("JPEG", "AREA,GRIDAREAONLY", "C:\LeCroy\XStream\Hardcopy\testimage.jpg")
Regards,
Leonard Brown
Applications Engineer
Teledyne LeCroy
1-800-553-2769
07-10-2014 03:36 AM
Good day leonard!
Thank you very much!
This code is really working!
Call o.StoreHardcopyToFile("JPEG", "AREA,GRIDAREAONLY", "C:\LeCroy\XStream\Hardcopy\testimage.jpg")
All inquiry are SOLVED!
Regards,
Jeff
Lecroy Digital Oscilloscope user
07-10-2014 12:18 PM
Hi Jeff,
It was my pleasure to help out!
I am glad you got it all going.
Happy coding!
Regards,
Leonard Brown
Applications Engineer
Teledyne LeCroy
1-800-553-2769