Hi Everyone, I am kind of beginn 1

Dwaipayan Sharma · Apr 20, 2022

Hi Everyone,

I am kind of beginner on VBA and I have created the program in VBA to create the photo sheet. I am having some issue with creating the exact border I was looking for.
Right now, I have created the single line border with the weight of 2. But what I am looking for is Haze border with grey color.
Could you please help me updating the border lines in the Module?

Module I am using right now:

PhotoShape.Line.Style = msoLineSingle
PhotoShape.Line.Weight = 2

Attached are the two photos: First photo is the border with existing module in VBA and second one is the border I am looking for.

Thanks!

IDS · Apr 21, 2022

I haven't done much with formatting images from VBA recently, but doing a quick trial with the macro recorder produced the following code:

Code:

Sub SelectBorder()
'
' SelectBorder Macro
'
    ActiveSheet.Shapes.Range(Array("Picture 1")).Select
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 5.25
    End With
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorBackground1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = -0.150000006
        .Transparency = 0
    End With
End Sub

To get that I pasted an image then clicked a blank cell, turned on the macro recorder (Developer Tab), selected the image again, right click and select Format Picture, then set the width to 5.25 and the colour to light grey, then click stop recording.
Does that give you sufficient to do what you want?

Doug Jenkins
Interactive Design Services

http://newtonexcelbach.wordpress.com/

IFRs · Apr 23, 2022

If you are not sure, record a macro doing just the thing you are looking for, then look at the macro to see one way to do it. Usually you can simplify the auto-recorded macro to something simpler.

Eng-Tips is the largest engineering community on the Internet

Intelligent Work Forums for Engineering Professionals

Hi Everyone, I am kind of beginn 1

Dwaipayan Sharma

Civil/Environmental

Recommended for you

IDS

Civil/Environmental

IFRs

Petroleum

Similar threads

Part and Inventory Search

Sponsor