When i send my data to excel, it doesn't start at the top of the sheet, but instead writes it further down apparently where it last left off. So i'm stuck with a large amount of blank cells heading my data.

In passing data to an Excel worksheet, I found the command IpProfSave("", S_DDE) by recording a macro. I didn't find that command in HELP/Macro Language.

I would like to reset the location of the upper-left corner of the data array to (1,1) in the worksheet each time I run the macro, but need to step one column at a time as the macro loops.

In the Profile File/DDE Options window, if I check "Append Data set to the right" I get the columns stepping as I loop. But, the next time I run the macro, it picks up in the column to the right of where it left off.

How do I reset the column number to 1 each time I run the macro? It must be documented some place, but I didn't find it, and I'm not understanding the HELP section on DDE enough to know what to do. Can anybody help with the lines of code I need to reset the column to 1 each time I run the macro?

Public Function LPBGCorrect() As SimpleScript
        LPBGCorrect = New SimpleScript

        Dim  doc3, image1, doc2, image2, window1,
     Dim LPFiltersize = 1001


        With Application.DocumentCommands.Active(LPBGCorrect)
            .Run(doc3)
        End With

        With Adjust.ImageCommands.Duplicate(LPBGCorrect)
            .Name = "Temp"
            .Visible = True
            .Run(doc3, image1)
        End With

        With Application.DocumentCommands.Activate(LPBGCorrect)
            .Run(image1, doc2)
        End With

        With Process.Filter.LargeCommands.LowPassLarge(LPBGCorrect)
            .Passes = 1
            .Width = LPFiltersize
            .Height = LPFiltersize
            .LockWidthHeight = True
            .Run(image1, image1)
        End With

        With Application.DocumentCommands.Activate(LPBGCorrect)
            .Run(doc3, doc3)
        End With

        With Process.ProcessCommands.Operations(LPBGCorrect)
            .Operation = eOperation.Subtract
            .NumberValue = 0R
            .ResultType = eResultType.Apply
            .Run(doc3, image1, image2)
        End With

        With Application.DocumentCommands.Activate(LPBGCorrect)
            .Run(doc2, doc2)
        End With

        With Application.WindowCommands.Define(LPBGCorrect)
            .Run(doc2, window1)
        End With

        With Application.WindowCommands.Close(LPBGCorrect)
            .Run(window1)
        End With

        With Application.DocumentCommands.Activate(LPBGCorrect)
            .Run(doc3, doc3)
        End With

    End Function

I am running IPP 7.0 and I would need some guidance on transferring outlines to AOIs.

I have a fluorophore (green) that is staining in the close proximity of blood vessels (red). I would like to measure the intensity of the green color around the blood vessel and not all the green staining in a given rectangle that I might draw by hand around the vessel.

So I was thinking of the following algorithm:

-          Draw AOI of the vessels (by hand or by using the red channel).

-          Convert the AOI to an object

-          Apply a Dilation morphological filer to the object so that its contour grows with the same number of pixels in all directions.

-          Convert back the resulting object to AOI and overlay it on the original image

-          Measure the green intensity in the new (dilated) AOI.

-          Ideally I would like to substract the original AOI from the dilated one in order to analyze only the ring area around the vessel!

What I did until now was to (1) define first an AOI (freehand or by channel color), (2) convert the AOI to objects, (3) in the Count/Size menu Make Mask, and thus obtain a new image with my AOI as an object. (4) Next on this binary image I applied a dilate morphological filer and the mask grew eccentrically from the original outline with the same number of pixels in al directions. (5) I used the automated threshold (Count/Size) to select the dilated AOI, (6) then Count to generate an object, then (7) I saved the outlines of the object, and lastly, on the original image (8) load outlines. But here the problem is that I cannot make the measurement only inside the outline…

Please, if you have any ideas how this might work best, I would greatly appreciate it!

I am not so good with writing a macro but I can record it very easily in IPP once the workflow is working, so could you please direct me to menu commands?

Thanks so much from now!

Daniel

All --

I am working to patch up a system which IMAGE-PRO PLUS and a VB PROGRAM I wrote many years ago that includes the SUPERSNAP ROUTINE shown below.

Due to changes in CAMERA and FRAME GRABBER equipment since the program was written, I would like to do some fairly simple operations to the image after it is captured.

I thought this could be accomplished with a POST SNAP MACRO.

After writing such a macro and testing it with the CAPTURE DIALOG BOX, I find that it seems that the POST SNAP MACRO is not triggered by the

    ret = IpAcqSnap(ACQ_NEWEX)

included in SUPERSNAP.

I can crack open the VB PROGRAM and include the operations within it but that will entail a level of surgery on the VB PROGRAM that I was hoping to avoid.

** QUESTIONS **

1) Is there an elegant way to configure IMAGE-PRO PLUS so that a ROUTINE within a MACRO will run when a SNAP is triggered from a routine like SUPERSNAP within a VB PROGRAM?

2) If #1 is not possible, it seems that a VB PROGRAM can command PLUS to run a ROUTINE within an IPM FILE via the IPMACRORUN COMMAND.  This is shown within the HELP FILE as follows:

    ret = IpMacroRun("PREP1","C:\IPWIN\UTILTIIES.SCR")

    This statement will execute the macro "PREP1" in the “UTILITIES.SCR” script file. 

This seems to indicate that if I put an appropriate IPMACRORUN statement into my VB PROGRAM that I can trigger the POST SNAP MACRO stored in an IPM FILE.

Can anyone say whether this will work?

** **

Thanks in advance. 

-- Matt

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

Private Sub SuperSnap()

    'If the preview is on
    If (Check_Preview.Value = vbChecked) Then
   
            'Turn off the PREVIEW
            Check_Preview.Value = vbUnchecked
       
        End If
   
    'Close all of the images that are currently open
    ret = IpAppCloseAll()
   
    'Capture a new image from the camera
    ret = IpAcqSnap(ACQ_NEWEX)
   
End Sub

I have the code for batch processing from a directory from one of the demos.  However, when running the code it keeps coming up with an error when it begins the code:

If gDirStart = "" Then                        'Error is in this line
gDirStart = "C:\"
End If

The error I am getting is Expecting an existing scalar var.

There is a comment before this line of code stating

' Make certain we have a reasonable starting point. This code is
' only executed the first run after macro compilation. If you have
' a desired standard starting point, initialize the directory
' search here.

Am I supposed to be running something first to set the directory? 

Thanks,

Jena

I am trying to have a macro in IPP that identifies the outline of an irregular object across an image and make it an irregular AOI.  Then be able to count the objects inside of that AOI and classify them based on area.  When I recorded a macro and identified the irregular AOI it gave me the below code.  However, when it runs on its own it fails to identify the AOI and therefore the counts the wrong objects. 

'<c>H
 ret = IpWsLoad("F:file.tif","tif")
 ret = IpAoiMultShow(1)
 ret = IpAoiMultAppend(1)
 ret = IpBlbShow(1)
 ret = IpBlbCount()
 ret = IpBlbShowSingleClass(0, ipBins(0), 2, 1)
 ipBins(0) = .2866733
 ipBins(1) = 26.0
 ipBins(2) = 1070.983
 ret = IpBlbShowSingleClass(0, ipBins(0), 2, 1)
 ret = IpBlbCreateMask()
End Sub

When I looked it up in the manual it states to use the below code but I don't quite understand what the points are that they mention?  Are they pixels or intensity values? 

 ret = IpListPts
 ret = IpAoiCreateIrregular (Pts (0), 7)

Thanks,

Jena

 - Torben

    Public Function FD_Measure(doc1 As Object) As SimpleScript
        FD_Measure = New SimpleScript
         - bla bla bla
         - bla bla bla
         - bla bla bla
         

         Call DoSomething()

    End Function

Then made this simple sub routine:


    Private Sub DoSomething()
        Debug.Print Now()
    End Sub

It works!:-)))

But here comes the question - In this DoSomething, how can I access the data in the datacollector. 
Loop through them, put them in arrays etc etc. I have all that code from Excel VBA.

I need something like (in mumbo-jumbo language):

For i 1 to Number_Of-lines_in-Datacolletor
      myParamx(i) = Parameter1_In_Collector(i)
      myParamy(i) = Parameter2_In_Collector(i) 
Next
Does it make any sence!?

 - Torben

In my macro I would like the rotation tool to open so the user can manually select the rotation then have the macro proceed.  How do I go about doing this?

Thanks

Matt

    Public Function FD008() As SimpleScript
        FD008 = New SimpleScript
        Dim doc1, image1, doc2
        Dim docList1 = New List(1), doc3, image2
        Dim myFile As String
        Dim StubNo As Integer
        Dim ImageNo As Integer

        With Application.RibbonCommands.SelectRibbonTab(FD008)
            .TabName = "Measure"
            .Run()
        End With

        Measure.Data.CollectorCommands.Clear(FD008).Run()

        With Application.RibbonCommands.SelectRibbonTab(FD008)
            .TabName = "CountSize"
            .Run()
        End With

        With Application.DocumentCommands.Active(FD008)
            .Run(doc1)
        End With

        With Measure.MeasurementsCommands.Options(FD008)
            .ActiveClass = 1
            .Run(doc1)
        End With

        myFile =  doc1.Name


why doesn't that last bit work? I want to use the filename for savings later on:


        With Measure.Data.Collector.TableCommands.SaveAsText(FD008)
            .FileName = "C:\Users\torbe\Dropbox\Torben Dokumenter\Mandrup Software\Kunder\RW\Ny SEM\Pyhton Code\" & Left(myFile,Len(myFile)-4) & ".txt"
            .UseStatistics = False
            .Run()
        End With

Please help me:-))

 - Torben