Insert Picture From A Folder With Adjustment Border Cell (cBorder)

[muhammad susanto]

hello word...
the code below work properly for insert pictures from a folder ..i just want to set margin top, bottom, left, right in a cell..i want to the picture not "fill full" a cell

here the code :

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

how to adding or set width and height like (2 * cBorder), etc......
related cross post

VBA Insert Picture Fully Filed in A Cell hi all... the code below work properly..i just want to set margin top, bottom, left, right in a cell..i want to the picture not "fill full" a cell Sub InsertPicture() Dim sPicture As String, pic As Picture sPicture = Application.GetOpenFilename _ ("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif... www.mrexcel.com

any helps, thank in advance..

.sst

 

[Misca]

The picture attributes (Rng.Left etc) are just numbers so you can manipulate them to get the borders to your pics:

Sub InsertPictures()
'Update 20140513
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
Dim xColIndex As Integer
Dim xRowIndex As Integer
Dim lLoop As Integer
Dim HBorder As Integer
Dim VBorder As Integer

HBorder = 5
VBorder = 10

On Error Resume Next
PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True)
xColIndex = Application.ActiveCell.Column
If IsArray(PicList) Then
    xRowIndex = Application.ActiveCell.Row
    For lLoop = LBound(PicList) To UBound(PicList)
        Set Rng = Cells(xRowIndex, xColIndex)
        Set sShape = ActiveSheet.Shapes.AddPicture(PicList(lLoop), msoFalse, msoCTrue, Rng.Left + HBorder, Rng.Top + VBorder, Rng.Width - 2 * HBorder, Rng.Height - 2 * VBorder)
        xRowIndex = xRowIndex + 1
    Next
End If
End Sub

In my example code I've set them static but they could as well be dynamic (a percentage of the Rng height / width etc.).

 

[muhammad susanto]

hi Misca, thank you so much.
Working well...