How can you retreive the active sheets revision? I can't find any reference to it anywhere in the API documentation.
How can you retreive the active sheets revision? I can't find any reference to it anywhere in the API documentation.
I would imagine that it is set in the driving model file iProperties.
Out of the box I think it is called "Revision Number."
I would imagine that it is set in the driving model file iProperties.
Out of the box I think it is called "Revision Number."
Not the iProperty, the revision property associated with each individual sheet.
Right click on the sheet in the browser, select properties... that revision property.
Not the iProperty, the revision property associated with each individual sheet.
Right click on the sheet in the browser, select properties... that revision property.
Will it work for you to pull it from the revision table?
Public Function GetSheetRevision() As String Dim Revision As Integer = Nothing Dim oDrawDoc As DrawingDocument = oApp.ActiveDocument Dim oRevisionTable As RevisionTable = oDrawDoc.ActiveSheet.RevisionTables.Item(1) For Each oRevRow As RevisionTableRow In oRevisionTable.RevisionTableRows Try ' we will deal with it as ASCII characters so it will handle either numbers ' or letters, but not both. 'I have guessed that the secont column holds the revision number If System.Text.Encoding.ASCII.GetBytes(oRevRow.Item(2).Text)(0) > Revision Then Revision = System.Text.Encoding.ASCII.GetBytes(oRevRow.Item(2).Text)(0) End If Catch ex As Exception End Try Next Return Chr(Revision) End Function
Will it work for you to pull it from the revision table?
Public Function GetSheetRevision() As String Dim Revision As Integer = Nothing Dim oDrawDoc As DrawingDocument = oApp.ActiveDocument Dim oRevisionTable As RevisionTable = oDrawDoc.ActiveSheet.RevisionTables.Item(1) For Each oRevRow As RevisionTableRow In oRevisionTable.RevisionTableRows Try ' we will deal with it as ASCII characters so it will handle either numbers ' or letters, but not both. 'I have guessed that the secont column holds the revision number If System.Text.Encoding.ASCII.GetBytes(oRevRow.Item(2).Text)(0) > Revision Then Revision = System.Text.Encoding.ASCII.GetBytes(oRevRow.Item(2).Text)(0) End If Catch ex As Exception End Try Next Return Chr(Revision) End Function
Same Probleme .... Have you a solution ?
I don't use RevisionTables, just a text
Same Probleme .... Have you a solution ?
I don't use RevisionTables, just a text
Can't find what you're looking for? Ask the community or share your knowledge.