window size

[Nelson]

Hello,

I would like to know what do I need to do to be able to
create a window for my the presentation that is 800X474
pixels. In other words, when I run my ppshow, I need to
see it in a window that is 800*474 pixels.

Also, what is 800*474 in cms?

Thank you in advance.

Nelson

 

[TAJ Simmons]

Nelson,

If you set up your presentation (slideshow - set up show - tick browsed by an individual) to be viewed in a window...you
can re-size it to any size.

Also, what is 800*474 in cms?

Care to elaborate?

Cheers
TAJ Simmons
microsoft powerpoint mvp

awesome - powerpoint backgrounds,
free powerpoint templates, tutorials, hints and tips etc
http://www.powerpointbackgrounds.com

 

[Nelson]

Hello TAJ,

Thanks for the reply...I wanted to know what would and
area of 800*474 pixels be equivalent to in centimeters.

Nelson

-----Original Message-----
Nelson,

If you set up your presentation (slideshow - set up

show - tick browsed by an individual) to be viewed in a
window...you

 

[Shyam Pillai]

Nelson,
You will need to compute the value on your system, Pixel to
Inches/Centimeter is depend on the system metrics. 1440 twips = 1 inch.
Hence determine the number of twips in 1 pixel. A pixel may not be square
hence compute the for X as well as Y.

Note that while converting to centimeter the version of PowerPoint is
essential. Older versions used it's own concept of centimeter which was
smaller than the actual centimeter for convinience.
' ------------------------------------------------------------------------------
Option Explicit

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" ( _
ByVal hwnd As Long, _
ByVal hdc As Long) As Long
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As
Long

Const TWIPSPERINCH As Long = 1440
Const LOGPIXELSX As Long = 88
Const LOGPIXELSY As Long = 90

Function TwipsPerPixelX() As Single
Dim lngDC As Long
lngDC = GetDC(0)
TwipsPerPixelX = TWIPSPERINCH / GetDeviceCaps(lngDC, LOGPIXELSX)
ReleaseDC 0, lngDC
End Function

Function TwipsPerPixelY() As Single
Dim lngDC As Long
lngDC = GetDC(0)
TwipsPerPixelY = TWIPSPERINCH / GetDeviceCaps(lngDC, LOGPIXELSY)
ReleaseDC 0, lngDC
End Function

Sub PixelsToInches()
Dim PixelX As Single
Dim PixelY As Single

PixelX = 800
PixelY = 474
MsgBox CStr(PixelX) & " X pixels are equivalent to : " & CStr(TwipsPerPixelX
* PixelX / TWIPSPERINCH) & " inches."
MsgBox CStr(PixelY) & " Y pixels are equivalent to : " & CStr(TwipsPerPixelY
* PixelY / TWIPSPERINCH) & " inches."
End Sub
' ------------------------------------------------------------------------------