🚀 go-pugleaf

bluelight--

The only time that the StrokeDashAndGap property is valid is when the stroke type is idDashed. The value of StrokeDashAndGap is a variant array of up to six values--just like the fields at the bottom of the Stroke palette when you're using a custom dashed stroke.

Consider the following:



Dim myInDesign As InDesign.Application 
Set myInDesign = CreateObject("InDesign.Application.2.0") 
If myInDesign.Documents.Count <> 0 Then 
    Set mySelection = myInDesign.Selection 
    If mySelection.Count > 0 Then 
        Select Case TypeName(mySelection.Item(1)) 
            Case "Text", "InsertionPoint" 
                Rem Text selection; do nothing 
            Case Else 
                Set myPageItem = mySelection.Item(1) 
                If myPageItem.StrokeType = idDashed Then 
                    myDashArray = myPageItem.StrokeDashAndGap 
                Else 
                    MsgBox "Page items with solid strokes do not have a dash and gap array." 
                End If 
        End Select 
    End If 
End If 




It looks like you're trying to copy a property from one object (a rectangle) to an object you've defined (myObj). Whether this will ever work will depend on the way you've defined myObj. (I'm guessing this because myObj is not an InDesign object, as no object has a strokeDash property.)

Want to let me in on what you're trying to do? There may be some other things I can help with.<g>

Thanks,

Ole