alle Layer auf einmal ändern / suchen-ersetzen

17/12/2008 - 08:27 von neinsta | Report spam
hallo,
gibt es eine möglichkeit alle/bestimmte layer auf einmal zu ent-/sperren?

grund:
in einem file befinden sich 54 blàtter, wo eine zahl in einem geschützen
layer geàndert werden soll.
es ist mühsam jedes blatt anzuwàhlen und den layer zu entsperren, die zahl
zu àndern und den layer wieder zu schützen

frage dazu:
warum kann man keine ànderung (scrollen/zoomen/edit usw.) machen,
wenn das layoputfenster offen ist.

genau das gleiche kommt bei dialogfenster "suchen und ersetzen" vor

dieses ist nicht gerade eine erleichterung, wenn jedes mal zuerst das
fenster geschlossen werden muss!

gruss
neinsta
 

Lesen sie die antworten

#1 eas
17/12/2008 - 09:10 | Warnen spam
Hallo!

Public Sub AlleLayerSperren(val As Boolean)
Dim vsoPages As VISIO.Pages
Dim vsoPage As VISIO.Page
Dim vsoCell As VISIO.Cell
Dim vsoCurrentLayer As VISIO.Layer
Dim vsoLayersInPage As VISIO.Layers

'aller Blaetter
Set vsoPages = Application.ActiveDocument.Pages
For Each vsoPage In vsoPages
Set vsoLayersInPage = vsoPage.Layers
For Each vsoCurrentLayer In vsoLayersInPage
Set vsoCell = vsoCurrentLayer.CellsC(visLayerLock)
vsoCell.ResultIU = val 'false = Layer werden entsperrt
Next vsoCurrentLayer
Next vsoPage

End Sub

für die 2. Frage hab ich keine Antwort!
ich hoff, das paßt?

"neinsta" wrote in message
news:
hallo,
gibt es eine möglichkeit alle/bestimmte layer auf einmal zu ent-/sperren?

grund:
in einem file befinden sich 54 blàtter, wo eine zahl in einem geschützen
layer geàndert werden soll.
es ist mühsam jedes blatt anzuwàhlen und den layer zu entsperren, die zahl
zu àndern und den layer wieder zu schützen

frage dazu:
warum kann man keine ànderung (scrollen/zoomen/edit usw.) machen,
wenn das layoputfenster offen ist.

genau das gleiche kommt bei dialogfenster "suchen und ersetzen" vor

dieses ist nicht gerade eine erleichterung, wenn jedes mal zuerst das
fenster geschlossen werden muss!

gruss
neinsta

Ähnliche fragen