|
|
#4
12-20-2011, 09:45 AM
|
|||
|
|||
OK
PowerPoint works in points in the object model so you need a user defined function to convert your figures to points. Code:
Sub fix_Pic() If ActiveWindow.Selection.Type <> ppSelectionShapes Then Exit Sub With ActiveWindow.Selection.ShapeRange(1) .Left = cm2Points(9) .Top = cm2Points(3.46) .LockAspectRatio = False .Width = cm2Points(16.09) .Height = cm2Points(15.5) .Line.ForeColor.RGB = vbBlack .Line.Weight = 2 'change weight here End With End Sub Function cm2Points(inVal As Single) cm2Points = inVal * 28.346 End Function 
|
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Positioning drawing elements in Powerpoint | TdeV | PowerPoint | 2 | 09-20-2014 06:56 AM |
| Issues formatting image behind text in Word (Mac 2008). | wildberrykt | Word | 0 | 11-23-2011 07:12 AM |
| VBA PowerPoint iBrowse Urgent Help! | mike | PowerPoint | 0 | 04-04-2011 04:29 PM |
 Positioning Slide Titles
|
genericusername | PowerPoint | 3 | 03-17-2011 05:43 AM |
| Powerpoint + paste in image with fixed width | erki | PowerPoint | 0 | 09-19-2010 11:23 PM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode