Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #4  
Old 06-25-2019, 05:12 AM
Ab1974 Ab1974 is offline Button Windows 10 Button Office 2010
Novice
Button
 
Join Date: Jun 2019
Posts: 3
Ab1974 is on a distinguished road
Default

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
Reply With Quote
 



Similar Threads
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
Button Option Button help ksigcajun Word VBA 1 01-15-2015 01:36 PM
Button How to run two button macros with one button? Geza59 Excel Programming 1 02-14-2013 12:11 AM
Macro Button B2W Excel 2 06-18-2010 09:36 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 07:43 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft