Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel 2007 and vb... ShapeRange.ScaleWidth problems
I have a vb macro that automatically places several jpg image on a worksheet
and rescales then to fit in boxes on the page. This macro has worked well until we upgraded to 2007. Does anyone know if there has been a change in syntax. Here is the current vb code: Sub InsertPICS(PicPath As String, PicWidth As Integer, PicTop As Integer, PicLeft As Integer) Dim ScaleRatio As Single ActiveSheet.Pictures.Insert(PicPath).Select Selection.Name = "3DPic" ScaleRatio = PicWidth / Selection.Width With Selection .ShapeRange.ScaleWidth ScaleRatio, msoFalse, msoScaleFromTopLeft .ShapeRange.ScaleHeight ScaleRatio, msoFalse, msoScaleFromTopLeft .Left = PicLeft .Top = PicTop End With End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Excel 2007 and vb... ShapeRange.ScaleWidth problems
Could you use the Height and Width properties? I prefer them anyway, and
maybe they don't experience the same problem. Also, you say the code has worked well until now. Do you now get an error, or does the size just come out wrong? - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions Peltier Technical Services, Inc. - http://PeltierTech.com _______ "Ken" wrote in message ... I have a vb macro that automatically places several jpg image on a worksheet and rescales then to fit in boxes on the page. This macro has worked well until we upgraded to 2007. Does anyone know if there has been a change in syntax. Here is the current vb code: Sub InsertPICS(PicPath As String, PicWidth As Integer, PicTop As Integer, PicLeft As Integer) Dim ScaleRatio As Single ActiveSheet.Pictures.Insert(PicPath).Select Selection.Name = "3DPic" ScaleRatio = PicWidth / Selection.Width With Selection .ShapeRange.ScaleWidth ScaleRatio, msoFalse, msoScaleFromTopLeft .ShapeRange.ScaleHeight ScaleRatio, msoFalse, msoScaleFromTopLeft .Left = PicLeft .Top = PicTop End With End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Unselect shaperange object after drawing it with VBA? | Excel Programming | |||
Excel 2007 Problems | Excel Discussion (Misc queries) | |||
Problem setting RGB Values with ShapeRange | Excel Programming | |||
Selection.ShapeRange.IncrementLeft error | Excel Programming | |||
Selection.ShapeRange.IncrementLeft error | Excel Programming |