I
Isabel
I insert a picture with a macro, and it is alwais over o behind, I can't
adjust de text round de picture.
I wrote:
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes. _
AddPicture(Imagen, False, True).Name = "ImgPpal"
With
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes("ImgPpal")
.LockAspectRatio = True
.Width = CentimetersToPoints(2) 'Ancho
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
.Left = (-1) * (Imagen.Width / 2)
.Top = (-1) * Imagen.Width
.LockAnchor = False
.PictureFormat.ColorType = msoPictureAutomatic
.WrapFormat.Type = wdWrapSquare
.WrapFormat.Side = wdWrapBoth
.WrapFormat.DistanceRight = CentimetersToPoints(0.5)
.WrapFormat.DistanceLeft = CentimetersToPoints(0.5)
.WrapFormat.DistanceBottom = CentimetersToPoints(0.5)
.WrapFormat.DistanceTop = CentimetersToPoints(0.5)
End With
Thank You.
adjust de text round de picture.
I wrote:
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes. _
AddPicture(Imagen, False, True).Name = "ImgPpal"
With
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes("ImgPpal")
.LockAspectRatio = True
.Width = CentimetersToPoints(2) 'Ancho
.RelativeHorizontalPosition = wdRelativeHorizontalPositionMargin
.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
.Left = (-1) * (Imagen.Width / 2)
.Top = (-1) * Imagen.Width
.LockAnchor = False
.PictureFormat.ColorType = msoPictureAutomatic
.WrapFormat.Type = wdWrapSquare
.WrapFormat.Side = wdWrapBoth
.WrapFormat.DistanceRight = CentimetersToPoints(0.5)
.WrapFormat.DistanceLeft = CentimetersToPoints(0.5)
.WrapFormat.DistanceBottom = CentimetersToPoints(0.5)
.WrapFormat.DistanceTop = CentimetersToPoints(0.5)
End With
Thank You.