A clinician was talking to me he other day about “sitting disease“. They said that our increasingly sedentary lifestyles are causing all kinds of problems – not least of them being obesity.
With that in mind, I thought I’d share this article and Infographic…
Office workers can exercise at their desk to get into better shape
Stuck working in an office with no time to hit the gym on a regular basis? There are ways to burn off a few calories during office hours, says Selen Razon, a physical education professor at Ball State.
“Studies have shown that long periods of inactivity — including sitting at your desk — increase the risk of cardiovascular disease and cancer,” she says. “I suggest that people do a few simple exercises to get their bodies moving and then stretching and toning at your desk. Moving a little goes a long way.”
Razon suggests:
• Start exercising before arriving at your desk by first parking your car as far away from the building as possible and then walking.
• Take the stairs whenever possible.
• Do exercises at your desk, including flexing arms, legs and abs on 30-second intervals.
• Get rid of a chair and sit on a medicine/fitness ball while working. Sitting on a ball will tone and strengthen your abs.
• Stand up and/or take short walks every 20 minutes at desk. Studies show even simple frequent standing breaks significantly decrease your chances of getting diabetes.
• Exchange the typical desk for one that allows you to stand, which burns more calories.
• Bring gadgets to the office. Hand grippers and stretch cords are relatively cheap and can provide great outlets for keeping active while you look at your screen.
Shared this post around the office and received this VBA code to remind you to get up and move every hour:
‘The code below will generate a pop-up window stating “Boom Shakalaka” every 20 to 60 minutes
‘At that time you should move yourself around
‘Place this code in a module in your “personal” Excel file
‘Excel has to be open for it to work
Sub auto_open()
Call random_time
End Sub
Sub random_time()
Dim iMinutes As Integer
Randomize
iMinutes = Int((60 – 20 + 1) * Rnd + 20)
Application.OnTime Now + TimeSerial(0, iMinutes, 0), “Message_Procedure”
End Sub
Sub Message_Procedure()
MsgBox “Boom Shakalaka”
Call random_time
End Sub