Add Shadows To Shape & Dont Move or Size with cell in VBA

[a_t_a]

hi

with this marco i add Oval shape to sheet

Sub OvalClick_()
Dim i As Long
i = Range("N2")

ActiveSheet.Shapes.AddShape(msoShapeOval, 480, 170, 200, 200).Select
   Selection.ShapeRange.Fill.Visible = msoFalse
   Selection.ShapeRange.Line.DashStyle = msoLineSolid
  Selection.ShapeRange.Line.Weight = 2.5
  Selection.ShapeRange.Line.foreColor.RGB = RGB(48, 48, 48)
  Selection.Name = "Oval " & i
Range("N2").Value = Range("N2").Value + 1

End Sub

i want add shadow to shape and check mark "Dont Move or Size with cell"

 

[My Aswer Is This]

Try this to add Dont Move or Size with cell

See line of code marked in red.
To add shadow would depend on how much shadow etc. etc.
Try using the Macro recorder and then make the shape the way you want and then you can read the code.

Sub My_Shapes()
Sub OvalClick_()
Dim i As Long
i = Range("N2")
ActiveSheet.Shapes.AddShape(msoShapeOval, 480, 170, 200, 200).Select
   Selection.ShapeRange.Fill.Visible = msoFalse
   Selection.ShapeRange.Line.DashStyle = msoLineSolid
  Selection.ShapeRange.Line.Weight = 2.5
  Selection.ShapeRange.Line.ForeColor.RGB = RGB(48, 48, 48)
  Selection.Name = "Oval " & i
  [COLOR=#ff0000]Selection.Placement = xlFreeFloating[/COLOR] ' this line of code added
Range("N2").Value = Range("N2").Value + 1
End Sub

 

[a_t_a]

tanx "Dont Move or Size with cell" worked.
you can help me to find proprety of shadows transparenty ,size ,blure, angel, color, and distance
link on web or e book of proprety shadow

 

[mumps]

You could try right clicking the shape and then click 'Format Shape'. This will give you a selection of formats to choose from. The effectiveness of the format will most likely depend on the shape.

 

[a_t_a]

i Found code:

Selection.ShapeRange.Shadow.Transparency = 0
Selection.ShapeRange.Shadow.Visible = True
Selection.ShapeRange.Shadow.Blur = 5
Selection.ShapeRange.Shadow.OffsetX = 5
Selection.ShapeRange.Shadow.OffsetY = 5

 

[My Aswer Is This]

Glad you have this working the way you want
See the reason I had no answer was I did not know what type shadow how much etc.
If you use the Macro Recorder you can do things exactly like you want on these type request
And then if you know how just copy the parts of the code you need.
Hope you did not think I did not want to help you.

i Found code:

Selection.ShapeRange.Shadow.Transparency = 0
Selection.ShapeRange.Shadow.Visible = True
Selection.ShapeRange.Shadow.Blur = 5
Selection.ShapeRange.Shadow.OffsetX = 5
Selection.ShapeRange.Shadow.OffsetY = 5