Excel Forum

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

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