Show Bid Request Power Point Slide Width and Hight Bid Request Id: 67365 Bookmark in my 'To Do' list Posted by: mwade (101 ratings) (Software buyer rating 9.96) Non-action Ratio: Very Good - 12.09% Buyer Security Verifications: Excellent Approved on: Jun 8, 2003 2:10:22 AM EDT Bidding Closes: Jun 22, 2003 2:09:51 AM EDT Viewed (by coders): 216 times Deadline: 6/28/2003 TIME EXPIRED Phase: 100% of work completed and accepted. Coder has been paid. Max Accepted Bid: Bidding is closed Project Type: Very Small Business Project: under $100 (USD) Bidding Type: Open Auction Categories: Visual Basic Enter chat room for this bid request (0 active users at Sep 13, 2003 2:40:00 AM EDT) Description: I am currently using some VB6 code that loads powerpoints and then exports them into a .bmp. I need to get the width and hight of the original size of the slide. Is there any way of doing that? The included code is just snippets to show what I am currently doing: Private m_Slide As PowerPoint.Slide Private m_PptApp As Object ' PowerPoint.Application *** Private m_PptPres As Object ' PowerPoint.Presentation *** Set m_PptApp = CreateObject("PowerPoint.Application") ' *** Set m_PptPres = m_PptApp.Presentations.Open(FilePath, , , False) For I = 1 To m_PptPres.Slides.Count Set Slide = m_PptPres.Slides(I) If Slide.Shapes.HasTitle Then Title = TrimZ(Slide.Shapes.Title.TextFrame.TextRange.Text, &HB;) Else Title = "" End If If Title = "" Then Contents.AddItem "Slide " & Slide.SlideIndex Else Contents.AddItem Title End If Next I SetSlide I, False m_Slide.Export strMainFilePath & "Slide" & I & ".bmp", "bmp" If m_Notes <> "" Then SaveNotes strMainFilePath & "\Slide" & I & ".txt" End if Deliverables: 1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. 2) Installation package that will install the software (in ready-to-run condition) on the platform(s) specified in this bid request. 3) Complete ownership and distribution copyrights to all work purchased. Platform: windows Must be 100% finished and received by buyer on: Jun 28, 2003 EDT Deadline legal notes: All times are expressed in the time zone of the site EDT (UT - 5). If the buyer omitted a time, then the deadline is 11:59:59 PM EDT on the indicated date. Remember that contacting the other party outside of the site (by email, phone, etc.) on all business projects < $500 (before the buyer's money is escrowed) is a violation of both the software buyer and seller agreements. We monitor all site activity for such violations and can instantly expel transgressers on the spot, so we thank you in advance for your cooperation. If you notice a violation please help out the site and report it. Thanks for your help.   Bidding/Comments: All monetary amounts on the site are in United States dollars. Rent a Coder is a closed auction, so coders can only see their own bids and comments. Buyers can view every posting made on their bid requests. See all rejected bids (and all comments) Name   Bid Amount    Date   Coder Rating   This bid was accepted by the buyer! bramp (68 ratings) in Castle Donington, Derby UK Bid id: 721,405   $4 (USD) Jun 8, 2003 1:19:42 PM EDT  9.8 (Excellent)     Since this is the most simipliest things I have included how to do it here, I hope you will honor my bid and select me if what I paste is helpful. Anyway for each Slide Object there is a Master Property which has a Height and Width... so you can do Slide.Master.Width Slide.Master.Height these will return the width and height in pixels. Andrew           There are 1 private replies to/from bramp. Click here to view them.