Reply to thread

Message: [QUOTE="rv.aleixo.alves, post: 7409159"] Thank you! It seems to be working fine now! Here is the final code: Sub FDiagCoord() ' ' Formatar os diagramas que têm coordenadas. ' On Error GoTo ErrorHandler Dim oILS As InlineShape Set oILS = Selection.InlineShapes(1) With oILS .PictureFormat.CropLeft = CentimetersToPoints(0.6) .PictureFormat.CropTop = CentimetersToPoints(0.6) .PictureFormat.CropRight = CentimetersToPoints(0.6) .PictureFormat.CropBottom = CentimetersToPoints(0.4) .LockAspectRatio = True .ScaleHeight = 60 End With Set oShp = Selection.InlineShapes(1).ConvertToShape oShp.WrapFormat.Type = wdWrapTopBottom oShp.ZOrder msoSendToBack With oShp .RelativeHorizontalPosition = wdRelativeHorizontalPositionColumn .Left = wdShapeCenter .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph .Top = sglTop End With Exit Sub ErrorHandler: End Sub [/QUOTE]