Document.FullBuildNumberCreated プロパティ (Visio)

図面の作成で使用されたインスタンスの完全なビルド番号を取得します。 読み取り専用です。

構文

式。FullBuildNumberCreated

式Document オブジェクトを表す変数。

戻り値

Long

注釈

完全なビルド番号の形式は、次のとおりです。

さらに、Visio では、正しい完全なビルド番号を取得するには、次のマクロに示すように、 FullBuildNumberCreated プロパティによって返される完全なビルド番号の内部リビジョン番号部分に 1000 を追加する必要があります。

例

次の Microsoft Visual Basic for Applications (VBA) プロシージャは、FullBuildNumberCreated プロパティを使用して、図面の作成に使用された Visio インスタンスの完全なビルド番号を取得する方法を示します。 完全なビルド番号が取得されると、 ParseFullBuildNumberCreatedProperty プロシージャによって数値が解析され、結果がイミディエイト ウィンドウに出力されます。

Public Sub FullBuildNumberCreated_Example() 
 
 Dim lngFullBuild As Long 
 lngFullBuild = ActiveDocument.FullBuildNumberCreated 
 ParseFullBuildNumberCreatedProperty (lngFullBuild) 
 
End Sub 
 
Public Sub ParseFullBuildNumberCreatedProperty(ByRef lngFullBuild As Long) 
 
 Dim lngMajor As Long 
 Dim lngMinor As Long 
 Dim lngRevision As Long 
 Dim lngBuild As Long 
 Dim lngNumber As Long 
 
 lngNumber = lngFullBuild 
 
 ' Low 16 bits: 
 lngBuild = lngNumber Mod 65536 
 lngNumber = lngNumber / 65536 
 
 'Next 5 bits: 
 lngRevision = lngNumber Mod 32 
 lngNumber = lngNumber / 32 
 
 'Next 5 bits: 
 lngMinor = lngNumber Mod 32 
 lngNumber = lngNumber / 32 
 
 'Next 5 bits: 
 lngMajor = lngNumber Mod 32 
 lngNumber = lngNumber / 32 
 
 'Remaining 1 bit unused and 0 as of Visio 2010 
 Debug.Print "lngFullBuild (full version specification): " & lngMajor & "." _ 
 & lngMinor & "." & lngBuild & "." & lngRevision + 1000 
 Debug.Assert(0 = lngNumber) 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。