sub slow down after page prview
 

hi,
i have sub adding 180 hyperlinks
usually it takes app 2 sec to run it
but after page preview or switching to page breaks same sub runs for
nearly 30 secs

what could be causing that?
i do not have any sub in beforeprint event
mcg

sub slow down after page prview
 

You may have noticed little dotted lines indicating page breaks after you do
File|Print (or print preview).

If your macro inserts/deletes rows or columns (or even changes heights/widths)
lots of times, then excel tries to figure out what to do with those dotted
lines. And that can slow your code down.

I do something like this to avoid the problem:

Option Explicit
Sub testme()

Dim CalcMode As Long
Dim ViewMode As Long

Application.ScreenUpdating = False

CalcMode = Application.Calculation
Application.Calculation = xlCalculationManual

ViewMode = ActiveWindow.View
ActiveWindow.View = xlNormalView

ActiveSheet.DisplayPageBreaks = False

'do the work

'put things back to what they were
Application.Calculation = CalcMode
ActiveWindow.View = ViewMode

End Sub



mcg wrote:

hi,
i have sub adding 180 hyperlinks
usually it takes app 2 sec to run it
but after page preview or switching to page breaks same sub runs for
nearly 30 secs

what could be causing that?
i do not have any sub in beforeprint event
mcg

--

Dave Peterson

sub slow down after page prview
 

actuallu it doesnt chang it at all...
here is my code:
Dim kom As Range
Dim wiersz As Integer
Dim zakladka As String
Dim czas As Date

czas = Now()
zakladka = A_Widownia.Range("c1").Value
wiersz = 6
For Each kom In Range("miejsca")
If kom < "" Then
' dodaje hiperlink
'komorka gdzie jest hpr ,adres hpr i wyswietlany tekst
ActiveSheet.Hyperlinks.Add Anchor:=kom, Address:="", _
SubAddress:="'" & Sheets(zakladka).Name & "'!" &
Sheets(zakladka).Cells(wiersz, 5).Address, _
TextToDisplay:=kom.Value

'usuwa formatowanie hiperlinka
With kom.Font
.Underline = xlUnderlineStyleNone
.Bold = True
.ColorIndex = 0
End With
Application.StatusBar = wiersz
wiersz = wiersz + 1
End If
Next kom

mcg

Dave Peterson napisal(a):
You may have noticed little dotted lines indicating page breaks after you do
File|Print (or print preview).

If your macro inserts/deletes rows or columns (or even changes heights/widths)
lots of times, then excel tries to figure out what to do with those dotted
lines. And that can slow your code down.

I do something like this to avoid the problem:

Option Explicit
Sub testme()

Dim CalcMode As Long
Dim ViewMode As Long

Application.ScreenUpdating = False

CalcMode = Application.Calculation
Application.Calculation = xlCalculationManual

ViewMode = ActiveWindow.View
ActiveWindow.View = xlNormalView

ActiveSheet.DisplayPageBreaks = False

'do the work

'put things back to what they were
Application.Calculation = CalcMode
ActiveWindow.View = ViewMode

End Sub



mcg wrote:

hi,
i have sub adding 180 hyperlinks
usually it takes app 2 sec to run it
but after page preview or switching to page breaks same sub runs for
nearly 30 secs

what could be causing that?
i do not have any sub in beforeprint event
mcg

--

Dave Peterson

sub slow down after page prview
 

i unchecked pagebreaks in tools-options anh it helped
thanks
mcg

Dave Peterson napisal(a):
You may have noticed little dotted lines indicating page breaks after you do
File|Print (or print preview).

If your macro inserts/deletes rows or columns (or even changes heights/widths)
lots of times, then excel tries to figure out what to do with those dotted
lines. And that can slow your code down.

I do something like this to avoid the problem:

Option Explicit
Sub testme()

Dim CalcMode As Long
Dim ViewMode As Long

Application.ScreenUpdating = False

CalcMode = Application.Calculation
Application.Calculation = xlCalculationManual

ViewMode = ActiveWindow.View
ActiveWindow.View = xlNormalView

ActiveSheet.DisplayPageBreaks = False

'do the work

'put things back to what they were
Application.Calculation = CalcMode
ActiveWindow.View = ViewMode

End Sub



mcg wrote:

hi,
i have sub adding 180 hyperlinks
usually it takes app 2 sec to run it
but after page preview or switching to page breaks same sub runs for
nearly 30 secs

what could be causing that?
i do not have any sub in beforeprint event
mcg

--

Dave Peterson

sub slow down after page prview
 

Then I would think something like this code:
ActiveSheet.DisplayPageBreaks = False
would help in code.

Maybe inserting the hyperlink changes the style (and the font size) and that
could be the same as changing the rowheight????

mcg wrote:

i unchecked pagebreaks in tools-options anh it helped
thanks
mcg

Dave Peterson napisal(a):
You may have noticed little dotted lines indicating page breaks after you do
File|Print (or print preview).

If your macro inserts/deletes rows or columns (or even changes heights/widths)
lots of times, then excel tries to figure out what to do with those dotted
lines. And that can slow your code down.

I do something like this to avoid the problem:

Option Explicit
Sub testme()

Dim CalcMode As Long
Dim ViewMode As Long

Application.ScreenUpdating = False

CalcMode = Application.Calculation
Application.Calculation = xlCalculationManual

ViewMode = ActiveWindow.View
ActiveWindow.View = xlNormalView

ActiveSheet.DisplayPageBreaks = False

'do the work

'put things back to what they were
Application.Calculation = CalcMode
ActiveWindow.View = ViewMode

End Sub



mcg wrote:

hi,
i have sub adding 180 hyperlinks
usually it takes app 2 sec to run it
but after page preview or switching to page breaks same sub runs for
nearly 30 secs

what could be causing that?
i do not have any sub in beforeprint event
mcg

--

Dave Peterson

--

Dave Peterson

sub slow down after page prview
 

inserting hyperlinks change font style
but it does everytime i run macro
macro slow down occurs only after print preview or display page breaks
if i dont click print preview or display.. it goes very fast
isnt that strange?
mcg

Uzytkownik "Dave Peterson" napisal w wiadomosci
...
Then I would think something like this code:
ActiveSheet.DisplayPageBreaks = False
would help in code.

Maybe inserting the hyperlink changes the style (and the font size) and
that
could be the same as changing the rowheight????

mcg wrote:

i unchecked pagebreaks in tools-options anh it helped
thanks
mcg

Dave Peterson napisal(a):
You may have noticed little dotted lines indicating page breaks after
you do
File|Print (or print preview).

If your macro inserts/deletes rows or columns (or even changes
heights/widths)
lots of times, then excel tries to figure out what to do with those
dotted
lines. And that can slow your code down.

I do something like this to avoid the problem:

Option Explicit
Sub testme()

Dim CalcMode As Long
Dim ViewMode As Long

Application.ScreenUpdating = False

CalcMode = Application.Calculation
Application.Calculation = xlCalculationManual

ViewMode = ActiveWindow.View
ActiveWindow.View = xlNormalView

ActiveSheet.DisplayPageBreaks = False

'do the work

'put things back to what they were
Application.Calculation = CalcMode
ActiveWindow.View = ViewMode

End Sub



mcg wrote:

hi,
i have sub adding 180 hyperlinks
usually it takes app 2 sec to run it
but after page preview or switching to page breaks same sub runs
for
nearly 30 secs

what could be causing that?
i do not have any sub in beforeprint event
mcg

--

Dave Peterson

--

Dave Peterson

sub slow down after page prview
 

That was what I was trying to say about those dotted lines.

If you can see them before your macro runs (and don't turn that display off),
then excel will try to readjust those dotted lines to their new location--each
time you add a hyperlink.

If you add lots of hyperlinks then excel does lots of stuff it doesn't really
need to.

It seems pretty reasonable to me.



Gazeta wrote:

inserting hyperlinks change font style
but it does everytime i run macro
macro slow down occurs only after print preview or display page breaks
if i dont click print preview or display.. it goes very fast
isnt that strange?
mcg

Uzytkownik "Dave Peterson" napisal w wiadomosci
...
Then I would think something like this code:
ActiveSheet.DisplayPageBreaks = False
would help in code.

Maybe inserting the hyperlink changes the style (and the font size) and
that
could be the same as changing the rowheight????

mcg wrote:

i unchecked pagebreaks in tools-options anh it helped
thanks
mcg

Dave Peterson napisal(a):
You may have noticed little dotted lines indicating page breaks after
you do
File|Print (or print preview).

If your macro inserts/deletes rows or columns (or even changes
heights/widths)
lots of times, then excel tries to figure out what to do with those
dotted
lines. And that can slow your code down.

I do something like this to avoid the problem:

Option Explicit
Sub testme()

Dim CalcMode As Long
Dim ViewMode As Long

Application.ScreenUpdating = False

CalcMode = Application.Calculation
Application.Calculation = xlCalculationManual

ViewMode = ActiveWindow.View
ActiveWindow.View = xlNormalView

ActiveSheet.DisplayPageBreaks = False

'do the work

'put things back to what they were
Application.Calculation = CalcMode
ActiveWindow.View = ViewMode

End Sub



mcg wrote:

hi,
i have sub adding 180 hyperlinks
usually it takes app 2 sec to run it
but after page preview or switching to page breaks same sub runs
for
nearly 30 secs

what could be causing that?
i do not have any sub in beforeprint event
mcg

--

Dave Peterson

--

Dave Peterson

--

Dave Peterson