Hole table

[GosponZ]

I'm wandering if hole table header can be in connection with view label. I do have three views with holes, and 3 hole tables. Every time i'm type in header which view belong to which table. Eg. Hole table - Front View. Is this possible?

Thanks for any cooments and help.

[Anonymous · Accepted solution]

Public Sub Hole_Table_Title()

    Dim oDoc As DrawingDocument
    Set oDoc = ThisApplication.ActiveDocument
    
    Dim oSheet As Sheet
    Set oSheet = oDoc.ActiveSheet
    
    Dim oTable As HoleTable
    
    For Each oTable In oSheet.HoleTables
        oTable.Title = oTable.ParentView.Label.Text
    Next
    
End Sub

[GosponZ]

Thank you'

it  working as i want.