пʼятниця, 18 вересня 2009 р. 03:37:34 UTC+3 користувач Jay Freedman написав:
Hi Roshan,
Dean was telling you about Word 2003, because you never said you have
Word 2007. The difference is important.
You're correct that the 3D depth menu in Word 2007 doesn't have a
Custom entry at the bottom. I have no idea why it was taken off.
To get back the capability, you can install the following macro (see http://www.gmayor.com/installing_macro.htm if needed) and put a button
for it onto the Quick Access Toolbar.
Sub CustomDepth()
Dim strStart As String, strRslt As String
If Selection.ShapeRange.Count > 0 Then
strStart = Selection.ShapeRange(1).ThreeD.Depth
strRslt = InputBox("Custom depth:", _
"Custom Depth", strStart)
If StrPtr(strRslt) = 0 Then 'canceled
Exit Sub
End If
Selection.ShapeRange(1).ThreeD.Depth = Val(strRslt)
Else
MsgBox "First select a shape object."
End If
End Sub
--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.
On Thu, 17 Sep 2009 14:39:01 -0700, Roshan
<Roshan@discussions.microsoft.com> wrote:
Hi DeanH,
I only have 0pt,36pt,72pt,144pt,288pt,Infinity
I don't have the custom option .
I could not find the customize, Rearrange Commands, check toolbar, select >3-D settings
can u tell me abt the steps in moer detail
I could find the customize option but it is for the quick access toolbar
"DeanH" wrote:
On the Depth icon from the 3D icon off my drawing toolbar I get the following
options, 0pt, 36pt, 72pt, 144pt, 288pt, Infinity, Custom.
Do you not see the same? If not you may need to Reset the 3-D Settings|Depth
toolbar, via Customize, Rearrange Commands, check toolbar, select 3-D
Settings|Depth, reset.
--
Hope this helps
DeanH
"Roshan" wrote:
Hi,
I need to change the depth of 3D objects in word.
only few options of 0pt,36pt,144pt..... are given.
can i get the custom depth
пʼятниця, 18 вересня 2009 р. 03:37:34 UTC+3 користувач Jay Freedman написав:
Hi Roshan,
Dean was telling you about Word 2003, because you never said you have
Word 2007. The difference is important.
You're correct that the 3D depth menu in Word 2007 doesn't have a
Custom entry at the bottom. I have no idea why it was taken off.
To get back the capability, you can install the following macro (see http://www.gmayor.com/installing_macro.htm if needed) and put a button
for it onto the Quick Access Toolbar.
Sub CustomDepth()
Dim strStart As String, strRslt As String
If Selection.ShapeRange.Count > 0 Then
strStart = Selection.ShapeRange(1).ThreeD.Depth
strRslt = InputBox("Custom depth:", _
"Custom Depth", strStart)
If StrPtr(strRslt) = 0 Then 'canceled
Exit Sub
End If
Selection.ShapeRange(1).ThreeD.Depth = Val(strRslt)
Else
MsgBox "First select a shape object."
End If
End Sub
--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.
On Thu, 17 Sep 2009 14:39:01 -0700, Roshan
<Roshan@discussions.microsoft.com> wrote:
Hi DeanH,
I only have 0pt,36pt,72pt,144pt,288pt,Infinity
I don't have the custom option .
I could not find the customize, Rearrange Commands, check toolbar, select >3-D settings
can u tell me abt the steps in moer detail
I could find the customize option but it is for the quick access toolbar
"DeanH" wrote:
On the Depth icon from the 3D icon off my drawing toolbar I get the following
options, 0pt, 36pt, 72pt, 144pt, 288pt, Infinity, Custom.
Do you not see the same? If not you may need to Reset the 3-D Settings|Depth
toolbar, via Customize, Rearrange Commands, check toolbar, select 3-D
Settings|Depth, reset.
--
Hope this helps
DeanH
"Roshan" wrote:
Hi,
I need to change the depth of 3D objects in word.
only few options of 0pt,36pt,144pt..... are given.
can i get the custom depth
пʼятниця, 18 вересня 2009 р. 03:37:34 UTC+3 користувач Jay Freedman написав:
Hi Roshan,
Dean was telling you about Word 2003, because you never said you have
Word 2007. The difference is important.
You're correct that the 3D depth menu in Word 2007 doesn't have a
Custom entry at the bottom. I have no idea why it was taken off.
To get back the capability, you can install the following macro (see http://www.gmayor.com/installing_macro.htm if needed) and put a button
for it onto the Quick Access Toolbar.
Sub CustomDepth()
Dim strStart As String, strRslt As String
If Selection.ShapeRange.Count > 0 Then
strStart = Selection.ShapeRange(1).ThreeD.Depth
strRslt = InputBox("Custom depth:", _
"Custom Depth", strStart)
If StrPtr(strRslt) = 0 Then 'canceled
Exit Sub
End If
Selection.ShapeRange(1).ThreeD.Depth = Val(strRslt)
Else
MsgBox "First select a shape object."
End If
End Sub
--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.
On Thu, 17 Sep 2009 14:39:01 -0700, Roshan
<Roshan@discussions.microsoft.com> wrote:
Hi DeanH,
I only have 0pt,36pt,72pt,144pt,288pt,Infinity
I don't have the custom option .
I could not find the customize, Rearrange Commands, check toolbar, select >3-D settings
can u tell me abt the steps in moer detail
I could find the customize option but it is for the quick access toolbar
"DeanH" wrote:
On the Depth icon from the 3D icon off my drawing toolbar I get the following
options, 0pt, 36pt, 72pt, 144pt, 288pt, Infinity, Custom.
Do you not see the same? If not you may need to Reset the 3-D Settings|Depth
toolbar, via Customize, Rearrange Commands, check toolbar, select 3-D
Settings|Depth, reset.
--
Hope this helps
DeanH
"Roshan" wrote:
Hi,
I need to change the depth of 3D objects in word.
only few options of 0pt,36pt,144pt..... are given.
can i get the custom depth
пʼятниця, 18 вересня 2009 р. 03:37:34 UTC+3 користувач Jay Freedman написав:
Hi Roshan,
Dean was telling you about Word 2003, because you never said you have
Word 2007. The difference is important.
You're correct that the 3D depth menu in Word 2007 doesn't have a
Custom entry at the bottom. I have no idea why it was taken off.
To get back the capability, you can install the following macro (see http://www.gmayor.com/installing_macro.htm if needed) and put a button
for it onto the Quick Access Toolbar.
Sub CustomDepth()
Dim strStart As String, strRslt As String
If Selection.ShapeRange.Count > 0 Then
strStart = Selection.ShapeRange(1).ThreeD.Depth
strRslt = InputBox("Custom depth:", _
"Custom Depth", strStart)
If StrPtr(strRslt) = 0 Then 'canceled
Exit Sub
End If
Selection.ShapeRange(1).ThreeD.Depth = Val(strRslt)
Else
MsgBox "First select a shape object."
End If
End Sub
--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the
newsgroup so all may benefit.
On Thu, 17 Sep 2009 14:39:01 -0700, Roshan
<Roshan@discussions.microsoft.com> wrote:
Hi DeanH,
I only have 0pt,36pt,72pt,144pt,288pt,Infinity
I don't have the custom option .
I could not find the customize, Rearrange Commands, check toolbar, select >3-D settings
can u tell me abt the steps in moer detail
I could find the customize option but it is for the quick access toolbar
"DeanH" wrote:
On the Depth icon from the 3D icon off my drawing toolbar I get the following
options, 0pt, 36pt, 72pt, 144pt, 288pt, Infinity, Custom.
Do you not see the same? If not you may need to Reset the 3-D Settings|Depth
toolbar, via Customize, Rearrange Commands, check toolbar, select 3-D
Settings|Depth, reset.
--
Hope this helps
DeanH
"Roshan" wrote:
Hi,
I need to change the depth of 3D objects in word.
only few options of 0pt,36pt,144pt..... are given.
can i get the custom depth
Wery useful! Thank a lot Jay. Solved in 20 min with a little expirience of macros.
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)