|
|
#4
08-11-2012, 07:49 AM
|
|||
|
|||
Note though that will generate a number between 1 and 12.
To get what you said you would need to pass the High and the Low values Code:
Sub UpdateRandomNumber(oSh As Shape) oSh.TextFrame.TextRange.Text = CStr(Random(100, 25)) SlideShowWindows(1).View.GotoSlide (SlideShowWindows(1).View.Slide.SlideIndex) End Sub Function Random(High As Long, Low As Long) As Long Randomize Random = Int((High - (Low - 1)) * Rnd) + Low End Function 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Macro to recap data of same numbers | Jasa P | Word VBA | 0 | 06-28-2012 02:41 AM |
 Formatting changing randomly
|
Franuzz | Word | 1 | 07-14-2011 04:12 PM |
| black text randomly changing to white when run macro | G DeBree | PowerPoint | 0 | 03-16-2011 09:23 AM |
| Randomly delayed emails | Colinest84 | Outlook | 1 | 01-14-2011 02:32 AM |
| Documents Randomly Corrupting | the IT Guy | Word | 0 | 02-06-2009 09:11 AM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode