Go to Post Legend has it that Brandon installs the server in a bulletproof case shortly before Kickoff. That way, when the server explodes, the damage to surrounding things is minimal. - Billfred [more]
Home
Go Back   Chief Delphi > ChiefDelphi.com Website > Extra Discussion
CD-Media   CD-Spy  
portal register members calendar search Today's Posts Mark Forums Read FAQ rules

 
 
 
Thread Tools Rate Thread Display Modes
Prev Previous Post   Next Post Next
  #8   Spotlight this post!  
Unread 09-10-2012, 08:09
tr6scott's Avatar
tr6scott tr6scott is offline
Um, I smell Motor!
AKA: Scott McBride
FRC #2137 (TORC)
Team Role: Mentor
 
Join Date: Dec 2007
Rookie Year: 2005
Location: Oxford, MI
Posts: 518
tr6scott has a reputation beyond reputetr6scott has a reputation beyond reputetr6scott has a reputation beyond reputetr6scott has a reputation beyond reputetr6scott has a reputation beyond reputetr6scott has a reputation beyond reputetr6scott has a reputation beyond reputetr6scott has a reputation beyond reputetr6scott has a reputation beyond reputetr6scott has a reputation beyond reputetr6scott has a reputation beyond repute
Re: paper: Beach Cities Robotics Clock In System

Thanks we like excel, as I work in it everyday. When I don't have something else to learn, I will take a look. Thanks for sharing.

I have it working, this is what you need to do. I don't think CD will let me post the new workbook to this this thread. So this is what you need to do if you want to...

In the teams setup sheet, in the row under the "clock out credit" in R9C1 enter the text, "Zoom Level on Open" and in R9C2 enter the value you want, "80" for us.

Open up the VBA Macros (Ribbon bar, view, macros) select any macro click edit. When VBA opens up, on left pane, click "ThisWorkbook" then on the code window select "Open" from the dropdown list. [Another way is to use find, and search the whole project for "zoom"]

At the bottom of the window you will see:
Code:
Private Sub Workbook_Open()
    Sheet1.Activate
    ActiveWindow.Zoom = 119
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
    'Application.DisplayFullScreen = True
End Sub
change the zoom value to:
Code:
Private Sub Workbook_Open()
    Sheet1.Activate
    ActiveWindow.Zoom = Sheet8.Cells(9, 2)
    ActiveWindow.DisplayGridlines = False
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
    'Application.DisplayFullScreen = True
End Sub
Save and close, when you open the sheet next time it will zoom to the value stored in team setup sheet.
__________________
The sooner we get behind schedule, the more time we have to catch up.

Reply With Quote
 


Thread Tools
Display Modes Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Forum Jump


All times are GMT -5. The time now is 22:03.

The Chief Delphi Forums are sponsored by Innovation First International, Inc.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Copyright © Chief Delphi