![]() |
|
|
|
#1
|
||||
|
||||
|
You can use a user-defined CentimetersToPoints function:
Code:
Function CentimetersToPoints(Cm As Single) CentimetersToPoints = Cm * 28.3464566929134 End Function Code:
Sub Demo() Dim cht As ChartObject Set cht = ActiveSheet.ChartObjects.Add(Left:=CentimetersToPoints(3), Top:=CentimetersToPoints(4), Width:=CentimetersToPoints(6), Height:=CentimetersToPoints(5)) End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
Using tables for headers and footers
|
Ulodesk | Word | 4 | 05-09-2012 02:28 PM |
| Having trouble with headers and footers | dreamz720 | Word | 1 | 08-24-2011 08:26 AM |
| Headers and Footers | OverAchiever13 | Word | 1 | 05-27-2010 01:30 PM |
| Changing colours on headers/footers | Shocker | Word | 1 | 04-30-2010 03:55 PM |
| Editable text in headers/footers | AlexSmalley | Word | 0 | 08-10-2009 07:34 AM |