PeopleSoft Adoption Made Smooth & Simple!
On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool. Claim Your Free WalkMe Account Now
InsertPictureInRange "I:\Macro\Database\JeffLogo.jpg", Range("A1") Sub InsertPictureInRange(PictureFileName As String, TargetCells As Range) ' inserts a picture and resizes it to fit the TargetCells range Dim p As Object, t As Double, l As Double, w As Double, h As Double If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub If Dir(PictureFileName) = "" Then Exit Sub ' import picture Set p = ActiveSheet.Pictures.Insert(PictureFileName) ' determine positions With TargetCells t = .Top l = .Left w = .Offset(0, 3.75).Left - .Left h = .Offset(3.75, 0).Top - .Top End With ' position picture With p .Top = t .Left = l .Width = w .Height = h End With Set p = Nothing End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Datagridview column resizing||8||25|
|drag and drop a row in excel 2010||5||44|
|Issue with nested if statement and vlookup formula||4||43|
|count values within multiple bands||7||33|
Join the community of 500,000 technology professionals and ask your questions.