Header
PowerPoint tips, hints and tutorials that will change your presentations for ever!

INDEX

 

Jigsaws
Sounds
Video
Custom Shows
vba code
NaviSlides
Games for teachers
Bullets
Triggers
Security
Flash Cards
Multiple Instances
PowerPoint 2007
Mail Merge
Random events
Animation
Hyperlinks
Set spellcheck language


Home buttonTutorial buttonContact buttonProducts button

PowerPoint cm and Points

Working in the GUI you probably position and size shapes using centimetres (or Inches if you live somewhere that doesn't understand the metric system).

In vba though PowerPoint uses POINTS which can make it difficult to convert.

This function just does the work for you:

Function cm2Points(inVal As Single)
cm2Points = inVal * 28.346
End Function

Example of use:

Sub resize_Me()
With ActiveWindow.Selection.ShapeRange(1)
.Left = cm2Points(3)
.Top = cm2Points(2.2)
End With
End Sub

Function cm2Points(inVal As Single)
cm2Points = inVal * 28.346
End Function

OK - but we use inches

Function in2Points(inVal As Single)
in2Points = inVal * 72
End Function

Example of use:

Sub resize_Me()
With ActiveWindow.Selection.ShapeRange(1)
.Left = in2Points(1.0)
.Top = in2Points(2.5)
End With
End Sub

Function in2Points(inVal As Single)
in2Points = inVal * 72
End Function

 

 

 

 

Back to the Index Page

POWERPOINT BLOG

Articles on your favourite sport

Free Microsoft PowerPoint Advice, help and tutorials, Template Links
This website is sponsored by Technology Trish Ltd
© Technology Trish 2007
Registered in England and Wales No.5780175
PowerPoint® is a registered trademark of the Microsoft Corporation