VBA Borderdefinition.Edit(sketch) fails

[M.Zirk]

Hello,

in an IDW I have some border definitions.
I try to access a borderdefinition sketch, but receive an error.

Because I get the names of the borderdefinitions in the IDW, the initialisation before must be ok.

This method cuses the error:

Call oBorderDef.Edit(oDrawingSketch)

Sub ChangeBorderDefinition()

'On Error GoTo Errorhandler

Dim oDrawingDoc As DrawingDocument
Dim oDrawingSketch As DrawingSketch
Dim oBorderDef As BorderDefinition

Set oDrawingDoc = ThisApplication.ActiveDocument

For Each oBorderDef In oDrawingDoc.BorderDefinitions
    Debug.Print oBorderDef.Name
    Call oBorderDef.Edit(oDrawingSketch)
Next oBorderDef

Exit Sub

Errorhandler:
    Debug.Print Err.Description
    Debug.Print Err.Number
End Sub

Any ideas what is going wrong?

Manfred

[mateusz_baczewski · Accepted solution]

Hi,

I believe this happens because, when you iterate through all frames, you end up trying to edit the default frame—which isn’t editable. That’s why you’re seeing an error. Below is a snippet of code that lets you edit a frame.

Sub main
	
	Dim oDoc As DrawingDocument = ThisApplication.ActiveDocument
	Dim oBorders As BorderDefinitions = oDoc.BorderDefinitions
	Dim oBorder As BorderDefinition = oBorders.Item(2)
	
	Dim oSheet As Sheet = oDoc.ActiveSheet
	Dim oDrawSketch As DrawingSketch
	
	oBorder.Edit(oDrawSketch)
	
End Sub

[M.Zirk]

Hello  Mateusz,

thank you for your help.

Manfred