We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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
|TO make secondary axis in pivot chart by Series Name||3||10|
|The formula is too long formulas should not be longer than 8192 characters||9||56|
|comparsion of two excel and get the result in another sheet using macro/VBA||3||51|
|automatic updating of an excel spreadsheet hosted by sharepoint||12||41|