Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.setup
|
|||
|
|||
Position Picture with macro
How do I position the picture after inserting the image through macro?
wks.Pictures.Insert ("T:\BrokerInformation\Grayson Fitch\Burn\logo_cne.gif") Thanks! |
#2
Posted to microsoft.public.excel.setup
|
|||
|
|||
Position Picture with macro
Saved from a previous post:
Option Explicit Sub testme02() Dim myPictureName As Variant Dim myPict As Picture Dim myRng As Range myPictureName = Application.GetOpenFilename _ (filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif") If myPictureName = False Then Exit Sub 'user hit cancel End If With Worksheets("sheet1") .Unprotect Password:="hi" Set myRng = .Range("A1:e10") Set myPict = .Pictures.Insert(myPictureName) myPict.Top = myRng.Top myPict.Width = myRng.Width myPict.Height = myRng.Height myPict.Left = myRng.Left myPict.Placement = xlMoveAndSize .Protect Password:="hi" End With End Sub G wrote: How do I position the picture after inserting the image through macro? wks.Pictures.Insert ("T:\BrokerInformation\Grayson Fitch\Burn\logo_cne.gif") Thanks! -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Closing File Error | Excel Discussion (Misc queries) | |||
Copying as Picture Link - using Macro | Excel Discussion (Misc queries) | |||
Relative Cell position NOT working with or without macro | Excel Discussion (Misc queries) | |||
Date macro | Excel Discussion (Misc queries) | |||
macro problem | Excel Discussion (Misc queries) |