Don't move chart or size with cells

[JustSayHi]

ต้องการจัดรูปแบบกราฟไม่ให้เคลื่อนตามเซลล์
แต่ code ด้านล่างทำงานได้เฉพาะกรณีที่เลือกหลายๆกราฟ แต่พอเลือกกราฟเดียวทำงานไม่ได้ครับ
ต้องแก้อย่างไร

Code: Select all

Sub ShapeFreeFloat()

For i = 1 To Selection.Count
With Selection.ShapeRange(i)
    MsgBox .Name
    If .Placement = xlFreeFloating Then
    .Placement = xlMoveAndSize
Else
    .Placement = xlFreeFloating
End If
End With

[snasui]

แนบไฟล์ตัวอย่างมาด้วยจะได้ช่วยทดสอบได้ครับ

[JustSayHi]

เลือกอันเดียวไม่ได้
ก็เลือกมันทั้งหมดเลยละกัน

Code: Select all

Sub SetAllCharts()
  'Make all charts on active sheet.
  Dim cht As ChartObject
  
    Dim Msg, Title As String
    Dim MyInput As Integer

    Msg = "Please select all charts style." & vbNewLine _
    & "1 - Move or size with cells" & vbNewLine _
    & "2 - Move but don't size with cells" & vbNewLine _
    & "3 - Don't move or size with cells"
     
    Title = "Selection of chart style" ' Define title.
    MyInput = InputBox(Msg, Title, 3)
   
  For Each cht In ActiveSheet.ChartObjects
    cht.Placement = MyInput
  Next
 
End Sub