ArtStyle Property

Applies To

Border object.

Description

Returns or sets the graphical page-border design for a document. Read/write Long.

Can be one of the following WdPageBorderArt constants:

  • wdArtApples
  • wdArtArchedScallops
  • wdArtBabyPacifier
  • wdArtBabyRattle
  • wdArtBalloons3Colors
  • wdArtBalloonsHotAir
  • wdArtBasicBlackDashes
  • wdArtBasicBlackDots
  • wdArtBasicBlackSquares
  • wdArtBasicThinLines
  • wdArtBasicWhiteDashes
  • wdArtBasicWhiteDots
  • wdArtBasicWhiteSquares
  • wdArtBasicWideInline
  • wdArtBasicWideMidline
  • wdArtBasicWideOutline
  • wdArtBats
  • wdArtBirds
  • wdArtBirdsFlight
  • wdArtCabins
  • wdArtCakeSlice
  • wdArtCandyCorn
  • wdArtCelticKnotwork
  • wdArtCertificateBanner
  • wdArtChainLink
  • wdArtChampagneBottle
  • wdArtCheckedBarBlack
  • wdArtCheckedBarColor
  • wdArtCheckered
  • wdArtChristmasTree
  • wdArtCirclesLines
  • wdArtCirclesRectangles
  • wdArtClassicalWave
  • wdArtClocks
  • wdArtCompass
  • wdArtConfetti
  • wdArtConfettiGrays
  • wdArtConfettiOutline
  • wdArtConfettiStreamers
  • wdArtConfettiWhite

  • wdArtCornerTriangles
  • wdArtCouponCutoutDashes
  • wdArtCouponCutoutDots
  • wdArtCrazyMaze
  • wdArtCreaturesButterfly
  • wdArtCreaturesFish
  • wdArtCreaturesInsects
  • wdArtCreaturesLadyBug
  • wdArtCrossStitch
  • wdArtCup
  • wdArtDecoArch
  • wdArtDecoArchColor
  • wdArtDecoBlocks
  • wdArtDiamondsGray
  • wdArtDoubleD
  • wdArtDoubleDiamonds
  • wdArtEarth1
  • wdArtEarth2
  • wdArtEclipsingSquares1
  • wdArtEclipsingSquares2
  • wdArtEggsBlack
  • wdArtFans
  • wdArtFilm
  • wdArtFirecrackers
  • wdArtFlowersBlockPrint
  • wdArtFlowersDaisies
  • wdArtFlowersModern1
  • wdArtFlowersModern2
  • wdArtFlowersPansy
  • wdArtFlowersRedRose
  • wdArtFlowersRoses
  • wdArtFlowersTeacup
  • wdArtFlowersTiny
  • wdArtGems
  • wdArtGingerbreadMan
  • wdArtGradient
  • wdArtHandmade1
  • wdArtHandmade2
  • wdArtHeartBalloon
  • wdArtHeartGray
  • wdArtHearts
  • wdArtHeebieJeebies
  • wdArtHolly
  • wdArtHouseFunky
  • wdArtHypnotic
  • wdArtIceCreamCones
  • wdArtLightBulb
  • wdArtLightning1
  • wdArtLightning2
  • wdArtMapleLeaf
  • wdArtMapleMuffins
  • wdArtMapPins
  • wdArtMarquee
  • wdArtMarqueeToothed
  • wdArtMoons
  • wdArtMosaic
  • wdArtMusicNotes
  • wdArtNorthwest
  • wdArtOvals
  • wdArtPackages
  • wdArtPalmsBlack
  • wdArtPalmsColor
  • wdArtPaperClips
  • wdArtPapyrus
  • wdArtPartyFavor
  • wdArtPartyGlass
  • wdArtPencils
  • wdArtPeople
  • wdArtPeopleHats
  • wdArtPeopleWaving
  • wdArtPoinsettias
  • wdArtPostageStamp

  • wdArtPumpkin1
  • wdArtPushPinNote1
  • wdArtPushPinNote2
  • wdArtPyramids
  • wdArtPyramidsAbove
  • wdArtQuadrants
  • wdArtRings
  • wdArtSafari
  • wdArtSawtooth
  • wdArtSawtoothGray
  • wdArtScaredCat
  • wdArtSeattle
  • wdArtShadowedSquares
  • wdArtSharksTeeth
  • wdArtShorebirdTracks
  • wdArtSkyrocket
  • wdArtSnowflakeFancy
  • wdArtSnowflakes
  • wdArtSombrero
  • wdArtSouthwest
  • wdArtStars
  • wdArtStars3D
  • wdArtStarsBlack
  • wdArtStarsShadowed
  • wdArtStarsTop
  • wdArtSun
  • wdArtSwirligig
  • wdArtTornPaper
  • wdArtTornPaperBlack
  • wdArtTrees
  • wdArtTriangleParty
  • wdArtTriangles
  • wdArtTribal1
  • wdArtTribal2
  • wdArtTribal3
  • wdArtTribal4
  • wdArtTribal5
  • wdArtTribal6
  • wdArtTwistedLines1
  • wdArtTwistedLines2
  • wdArtVine
  • wdArtWaveline
  • wdArtWeavingAngles
  • wdArtWeavingBraid
  • wdArtWeavingRibbon
  • wdArtWeavingStrips
  • wdArtWhiteFlowers
  • wdArtWoodwork
  • wdArtXIllusions
  • wdArtZanyTriangles
  • wdArtZigZag
  • wdArtZigZagStitch

See Also

AlwaysInFront property, ArtWidth property, JoinBorders property, SurroundFooter property, SurroundHeader property.

Example

This example adds a border of black dots around each page in first section in the selection.

For Each aBorder In Selection.Sections(1).Borders
    aBorder.ArtStyle = wdArtBasicBlackDots
    aBorder.ArtWidth = 6
Next aBorder
This example adds a picture border around each page in section one in the active document.

With ActiveDocument.Sections(1)
    .Borders.AlwaysInFront = True
    For Each aBord In .Borders
        aBord.ArtStyle = wdArtPeople
        aBord.ArtWidth = 15
    Next aBord
End With