Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.
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
|In Excel 2007, how do I insert a line diagram for 15 items each with 10 x and y values with smooth lines and get the x axis interpreted as date?||30||62|
|Database Connections Not being returned to Connection Pool||7||24|
|Best Excel formula for this scenario||2||33|
|locking multiple column ranges||10||23|