Have done some searching but cant find a perfect solution.
Working so far:
Using a macro, I have inserted a picture into worksheet, with 2 text box/rectangles, which seems to work ok I believe so far.
Still To Do:
What I would like to add to this is 1 arrow aligned to the top centre of the larger (1st) of the boxes/rectangles.
The text inside box/rectangle needs to be centralised, but not dedicated text, it will be input by user.
So far I have got this far, any help would be appreciated. THANK YOU.
Using excel 2010 with XP
File attached is with macro ran to show state so far, with a good vs bad example
Test.xlsm
Sub Macro1()
' Macro1 Macro
Dim pic As Variant
pic = Application.GetOpenFilename
ActiveSheet.Shapes.AddPicture (pic), False, True, 19, 379.5, 195, 186.5
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 52, 537, 130, 23).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 1
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 5
Selection.ShapeRange.TextFrame.Characters.Font.Name = "Arial"
Selection.ShapeRange.TextFrame.Characters.Font.Size = 10
Selection.ShapeRange.TextFrame.Characters.Font.ColorIndex = 1
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 30, 387, 22, 22).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 1
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 8
Selection.ShapeRange.TextFrame.Characters.Font.Name = "Arial"
Selection.ShapeRange.TextFrame.Characters.Font.Size = 10
Selection.ShapeRange.TextFrame.Characters.Font.ColorIndex = 1
End Sub
Bookmarks