Save only the bounding box region of image as png?

Question

Hi,
I'd like to save each layer's item as png.
If possible, i'd like save only the bounding box of image(of an item), and the corresponding bounding box's origin/size info(relative to artboard's origin) somewhere as text file.
To do this,
I need to be able to get a bounding box of an item.
and possibly artboard's origin. (because I'm not sure where a bounding box's coordinate's origin is).
Thank you in advance

Answer 1

If I understand you correctly you have one table with a bunch of yes/no values (SA, SC, SS, etc.).  Then for each record in that table you want to output a string listing all the fields from the first table which = yes (i.e are checked).  Perhaps
the following code would get you started:
Sub JimNeal()
    Dim strProcedure_Value As String
    Dim rst As DAO.Recordset
    Dim rstOut As DAO.Recordset
    Set rst = DBEngine(0)(0).OpenRecordset("TableWithCheckboxes")
    Set rstOut = DBEngine(0)(0).OpenRecordset("OutputTable")
    Do Until rst.EOF
        strProcedure_Value = ""
        If rst!SA Then strProcedure_Value = strProcedure_Value & "Surface Area,"
        If rst!SC Then strProcedure_Value = strProcedure_Value & "Surface Contour,"
        '... etc
        If rst!SS Then strProcedure_Value = strProcedure_Value & "Steep Slope,"
        rst.MoveNext
        ' Strip off final comma
        If Len(strProcedure_Value) > 0 Then strProcedure_Value = Left(strProcedure_Value, Len(strProcedure_Value) - 1)
        ' Output the string to your output table
        rstOut.AddNew
        rstOut!Procedure_Value = strProcedure_Value
        rstOut.Update
    Loop
    rst.Close
    rstOut.Close
    Set rst = Nothing
    Set rstOut = Nothing
End Sub
-Bruce