![]() |
#4
|
|||
|
|||
![]()
While .ZOrderPosition > 1
.ZOrder msoSendBackward Wend doesnt work. word crashes... this is what i've done. With oShp With .WrapFormat .Type = wdWrapSquare .Side = wdWrapBoth .DistanceTop = InchesToPoints(0.1) .DistanceBottom = InchesToPoints(0.1) .DistanceLeft = InchesToPoints(0.1) .DistanceRight = InchesToPoints(0.1) End With .LockAspectRatio = msoTrue .Width = InchesToPoints(9) .Height = InchesToPoints(4) ' The displayed width of the picture .Left = InchesToPoints(0.1) - ActiveDocument.PageSetup.LeftMargin 'The distance from the left edge of the paper .Top = InchesToPoints(2) - ActiveDocument.PageSetup.TopMargin 'The distance from the top edge of the paper While .ZOrderPosition > 1 .ZOrder msoSendBackward Wend End With lbl_Exit: Set oShp = Nothing Exit Sub |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
How to create a "Font color" button and a "Highlight text" button in the Quick Launch toolbar ? | gloub | Word | 12 | 02-19-2019 03:19 PM |
Help with a Command Button | dkohnken | Word VBA | 5 | 03-18-2015 10:13 PM |
![]() |
ksigcajun | Word VBA | 1 | 01-15-2015 01:36 PM |
![]() |
Geza59 | Excel Programming | 1 | 02-14-2013 12:11 AM |
Macro Button | B2W | Excel | 2 | 06-18-2010 09:36 AM |