Microsoft Office Tutorials and References
In Depth Information
Changing the Path for Graphics Files
'Get the range for first para's starting point¶
rngPageStart.End = rngPage.Paragraphs(1).Range.Start¶
'If the beginning of the first para¶
'is on the preceding page, then the¶
'graphic must be anchored to the second para¶
'in order for it to appear on this page¶
If Val(rngPageStart.Information(wdActiveEndPageNumber)) _¶
< PageNr Then¶
rngPage.Paragraphs(2).Range.Paste¶
Else¶
rngPage.Paragraphs(1).Range.Paste¶
End If¶
vw.Type = lViewType¶
If Application.Version > 10 Then vw.DisplayPageBoundaries _¶
= bWholePage¶
End Sub¶
Wrd
View the Appendix to learn how to store this procedure
in a UserForm.
Option explicit¶
' * * * * *¶
Private Sub cmdCancel_Click()¶
Unload Me¶
End Sub¶
‘ * * * * *¶
Private Sub cmdOK_Click()¶
ChangeGraphicName¶
Unload Me¶
End Sub¶
' * * * * *¶
Private Sub UserForm_Activate()¶
'Variable declaration¶
Dim sShapeName As String¶
sShapeName = GetGraphicName¶
If Len(sShapeName) = 0 Then¶
MsgBox "You haven't selected a graphic." & vbCr & vbCr & _¶
"Please select a graphic and try again.", _¶
vbOKOnly + vbCritical¶
Unload Me¶
Exit Sub¶
Else¶
Search JabSto ::




Custom Search