依比例平衡調整Dim p As ObjectDim iCnt As IntegerDim s As DoubleDim r As RangeFor Each p In ActiveSheet.Shapess = ***/p.WidthSet r = p.TopLeftCellp.Width = ***p.Height = p.Height * siCnt = iCnt + 1Next p *** 寬度
要補上 if ,才不會動到按鈕的大小'8=表單按鈕,12=activex按鈕For Each p In ActiveSheet.ShapesIf p.Type = 8 Or p.Type = 12 Then'do nothingElse'change size codeEnd IfNext p