Zeichenbläter Anzahl

16/09/2007 - 22:22 von Roger | Report spam
Hallo Zusammen

Kann mitr jemand sagen, wie viele Zeichenblàtter ich in einer Visio 2007
Datei maximal anlegen kann?

Danke und Grüsse
Roger
 

Lesen sie die antworten

#1 Chris Roth [MVP]
17/09/2007 - 04:04 | Warnen spam
Servus Roger,

Bin mir nicht sicher was die Nummer ist, oder ob es sowas gibt (Festplatte
Groesse...???)

Habe eine aehnliche Frage in den Newsgroups frueher gesehn (per Visio 2003)
Ich habe damals einen bisschen Test-VBA-code geschrieben:

Habe bis 1766 seiten (leer) produziert, aber es hat gedauert - 15 Minuten!


Sub addpages()

Const FLUSH% = 50

Dim i As Integer, iFlush As Integer
Dim pg As Visio.Page

Visio.Application.UndoEnabled = False

For i = 1 To 600
Set pg = Visio.ActiveDocument.Pages.Add()
pg.Name = Visio.ActiveDocument.Pages.Count

iFlush = iFlush + 1
If iFlush = FLUSH Then
Debug.Print "Flushing at i = " & i
iFlush = 0
DoEvents
End If

Next i

Visio.Application.UndoEnabled = True

End Sub

Hope this helps,

Chris Roth
Visio MVP

Free Visio shapes:
http://www.visguy.com/category/shapes
Visio programming info:
http://www.visguy.com/category/programming/
Other Visio resources:
http://www.visguy.com/visio-links/

"Roger" wrote in message
news:%23k2Ob9J%
Hallo Zusammen

Kann mitr jemand sagen, wie viele Zeichenblàtter ich in einer Visio 2007
Datei maximal anlegen kann?

Danke und Grüsse
Roger

Ähnliche fragen