Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro to insert an object in a specific cell 2007`
I am trying to insert an object in a specific cell. i can get it to work in
2003, but not in 2007 does anyone have any insight as to what i am doing wrong....here is the code that i am using Sub test() ' ' test Macro ' Macro recorded 7/7/2008 by mspears ' ' Range("B30").select ActiveSheet.Pictures.Insert("H:\scan0002.jpg").Sel ect Selection.ShapeRange.PictureFormat.TransparentBack ground = msoTrue Selection.ShapeRange.PictureFormat.TransparencyCol or = RGB(253, 253, 253) Selection.ShapeRange.Fill.Visible = msoFalse Application.CommandBars("Picture").Visible = False End Sub |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro to insert an object in a specific cell 2007`
From what I've read, xl2007 doesn't play nice with .select's with objects like
pictures. Option Explicit Sub test() Dim myPict As Picture With ActiveSheet Set myPict = .Pictures.Insert("H:\scan0002.jpg") End With With myPict .Top = .Parent.Range("B30").Top .Left = .Parent.Range("b30").Left .ShapeRange.PictureFormat.TransparentBackground = msoTrue .ShapeRange.PictureFormat.TransparencyColor = RGB(253, 253, 253) .ShapeRange.Fill.Visible = msoFalse End With End Sub Should work in both xl2007 and earlier versions. mpsears62 wrote: I am trying to insert an object in a specific cell. i can get it to work in 2003, but not in 2007 does anyone have any insight as to what i am doing wrong....here is the code that i am using Sub test() ' ' test Macro ' Macro recorded 7/7/2008 by mspears ' ' Range("B30").select ActiveSheet.Pictures.Insert("H:\scan0002.jpg").Sel ect Selection.ShapeRange.PictureFormat.TransparentBack ground = msoTrue Selection.ShapeRange.PictureFormat.TransparencyCol or = RGB(253, 253, 253) Selection.ShapeRange.Fill.Visible = msoFalse Application.CommandBars("Picture").Visible = False End Sub -- Dave Peterson |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro to insert an object in a specific cell 2007`
Thank you so very much.. i really appreciate the help...
"Dave Peterson" wrote: From what I've read, xl2007 doesn't play nice with .select's with objects like pictures. Option Explicit Sub test() Dim myPict As Picture With ActiveSheet Set myPict = .Pictures.Insert("H:\scan0002.jpg") End With With myPict .Top = .Parent.Range("B30").Top .Left = .Parent.Range("b30").Left .ShapeRange.PictureFormat.TransparentBackground = msoTrue .ShapeRange.PictureFormat.TransparencyColor = RGB(253, 253, 253) .ShapeRange.Fill.Visible = msoFalse End With End Sub Should work in both xl2007 and earlier versions. mpsears62 wrote: I am trying to insert an object in a specific cell. i can get it to work in 2003, but not in 2007 does anyone have any insight as to what i am doing wrong....here is the code that i am using Sub test() ' ' test Macro ' Macro recorded 7/7/2008 by mspears ' ' Range("B30").select ActiveSheet.Pictures.Insert("H:\scan0002.jpg").Sel ect Selection.ShapeRange.PictureFormat.TransparentBack ground = msoTrue Selection.ShapeRange.PictureFormat.TransparencyCol or = RGB(253, 253, 253) Selection.ShapeRange.Fill.Visible = msoFalse Application.CommandBars("Picture").Visible = False End Sub -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
INSERT OBJECT BASED ON CELL REFERENCE | Excel Worksheet Functions | |||
Macro to insert a object in excel | Excel Discussion (Misc queries) | |||
Cell value becomes filepath to insert picture,jpg or object | Excel Worksheet Functions | |||
macro to insert row after specific text | Excel Discussion (Misc queries) | |||
How do I embed an object into a specific cell in Excel? | Excel Discussion (Misc queries) |