Adding buttons and connect macro
Thx. I will try to make it work...
LPN
"Bob Phillips" skrev i en meddelelse
...
Lars,
Yes it will work, just need to adapt to suit. It would go something like
Dim fDiagram1 as Boolean
Dim fDiagram2 As Boolean
etc.
Sub Zoom()
fDiagram1 = ZoomDiagram(1, fDiagram1)
fdiagram2 = ZoomDiagram(2, fdiagram2)
'etc.
End Sub
Function ZoomDiagram(Diagram As Long, ZoomIn As Boolean) As Boolean
With ActiveSheet.Shapes("Diagram" & Diagram)
If ZoomIn Then
.ScaleWidth 1.61, msoFalse, msoScaleFromTopLeft
Else
.ScaleHeight 1.39, msoFalse, msoScaleFromTopLeft
End If
End With
ActiveWindow.Visible = False
Range("I29").Select
ZoomDiagram = Not ZoomIn
End Function
This will work from any sheet as long as it is the activesheet, and as
long
as the Diaghrams are all called Daigram 1, Diagram 2, etc, whatever the
sheet.
--
HTH
Bob Phillips
"Lars Peter Nielsen" wrote in message
k...
Hi Bob
I have a code like this - just the principle - not the exact code cause
it
is at work:
ActiveSheet.Shapes("Diagram 1").ScaleWidth 1.39, msoFalse,
msoScaleFromTopLeft
ActiveSheet.Shapes("Diagram 1").ScaleHeight 1.61, msoFalse, _
msoScaleFromTopLeft
ActiveWindow.Visible = False
Range("I29").Select
Will it work? I think I get your thinking. Should I then make a zoom
macro
(like the one you write) for each sheet?
LPN
"Bob Phillips" skrev i en meddelelse
...
Lars,
I do not what code you have to zoom in and out, but all you need is a
simple
Boolean variable to determine whether its small or large diagram.
Something like
Dim fDiagram1 as Boolean
Dim fDiagram2 As Boolean
etc.
Sub Zoom()
If fDiagram1 = True Then
Call ZoomOutDiagram1
Else
Call ZoomInDaigram1
End If
fDiagram1 = Not fDiagram1
End Sub
Get the idea?
--
HTH
-------
Bob Phillips
... looking out across Poole Harbour to the Purbecks
"Lars Peter Nielsen" wrote in message
k...
Hi
First of all I will le´t you know I am from Denmark, so I am sry.
about
my
english.
Here is what I have made: I have this workbook whith up to 10
sheets.
On
each sheet I have 4 diagrams fitted so I can see them at once. Then
I
have
made macros, so when I click on a diagram it will zoom out, so this
particular diagram fits the whole screen (so you can see details
better).
Also made macros, so when I run it, the diagrams zooms back in (back
to
start - with all 4 diagrams at the same place).
What I need is when I click on 1 diagram and zooms out - the code
should
also create a button whit my zoom in macro, so when I click on that
one
it
will zoom back. If this is possible I also need the code to delete
the
button, which I could put into my zoom in macro.
Maybe there is an easier way, pls. let me know. I was thinking,
maybe
it
was
possible to create the macro, so when I click on the diagram and it
zooms
out, then the macro change on the diagram, so next time when I click
on
it -
it zooms in (run my zoom in macro).
I dont know if you understand my problem.
Regards
Lars
|