Dim oRysunek As DrawingDocument = ThisApplication.ActiveDocument
Dim oArkusze As Sheets = oRysunek.Sheets
Dim oArkusz As Sheet
Dim oWidok As DrawingView
Dim Nazwa As String
Dim Sciezka As String

For Each oArkusz In oArkusze
    ' Arkusze bez widoków pomijamy.
    If oArkusz.DrawingViews.Count > 0 Then
        oWidok = oArkusz.DrawingViews.Item(1)
        Sciezka = oWidok.ReferencedDocumentDescriptor.FullDocumentName
        Nazwa = IO.Path.GetFileNameWithoutExtension(Sciezka)
        oArkusz.Name = Nazwa
    End If
Next