1

Visio を使用して、複数のレイヤーを持つフロー チャートを作成しました。（背景は、各レイヤーが基本的なプロセスのバリエーションを表すことです。）

ここで、各レイヤーを個別に印刷できるようにしたいと考えています。現在、これには何度もクリックして正しいレイヤーを選択し、印刷を押します。これを 10 レイヤーごとに繰り返します。

もっと簡単な方法はありますか？たとえば、各レイヤーを一度定義し、「各レイヤーを印刷」ツール/マクロを使用しますか?

4

1 に答える 1

2

これは、VBA を使用するとかなり簡単です。jpeg へのページ エクスポートを使用してテストしましたが、印刷も同様に機能するはずです。アクティブなページのすべてのレイヤーをループし、最初にすべてのレイヤーを非表示にしてから、現在ループされているレイヤーを再表示して印刷します。

Sub PrintLayers()
    Dim CurrShowLayer As Visio.Layer, CurrLayer As Visio.Layer
    For Each CurrShowLayer In ActivePage.Layers
        For Each CurrLayer In ActivePage.Layers
            CurrLayer.CellsC(visLayerVisible).Formula = "0"
        Next CurrLayer
        CurrShowLayer.CellsC(visLayerVisible).Formula = "1"
        ActivePage.Print
    Next CurrShowLayer
    For Each CurrLayer In ActivePage.Layers
        CurrLayer.CellsC(visLayerVisible).Formula = "1"
    Next CurrLayer
End Sub
于 2010-05-18T22:06:18.277 に答える