office 2007 variable depth of 3d objects

[Jimbo Wales]

In office 2007, [I'm using the Word drawing package which I assume is the
same for all parts of office], I'm unable find a box to allow me to input
which 'depth' I'd like on '3D Effects/Depth' under the 'Format' toolbar for a
drawn object. In the old office 2003/previous versions, one could select a
predefined value of 36 or 72 or whatever, but in office 2007, I can find
nothing that allows you to set it to a lower figure...
any ideas?
regards
Jimbo

 

[Bob Buckland ?:-\)]

Hi Jimbo,

You're inserting a shape in this case? If you use the
Drawing Tools=>Format tab of Word 2007 gold (RTM version),
select the 3D effects button in the 3d effects group and the 'Depth' choice is at the bottom of that drop down, but the 'custom'
setting is missing.

Even in Word 2003 that was an odd dialog, as you could move or remove any item from that dropdown except the
customize setting. It's still an available command in Word 2007,

Selection.ShapeRange.ThreeD.Depth =

but it looks like one of the folks here who do more with Word macros may have to create a macro that prompts for the value and that
macro can then be added separately to either the Quick Access Toolbar ("the" toolbar in Word) or as a Ribbon customization.


On your other point, the drawing features for the 2007 Office apps aren't entirely consistent. Word did not implement all of the
features of what MS calls the 'Escher v2 engine', for example in WordArt, Word has OldWord-Art and Powerpoint has the new WordArt.

============
In office 2007, [I'm using the Word drawing package which I assume is the
same for all parts of office], I'm unable find a box to allow me to input
which 'depth' I'd like on '3D Effects/Depth' under the 'Format' toolbar for a
drawn object. In the old office 2003/previous versions, one could select a
predefined value of 36 or 72 or whatever, but in office 2007, I can find
nothing that allows you to set it to a lower figure...
any ideas?
regards
Jimbo>>
--

Bob Buckland ?
MS Office System Products MVP

*Courtesy is not expensive and can pay big dividends*

 

[Cindy M.]

Hi Bob,

but it looks like one of the folks here who do more with Word macros may have to create a macro that prompts for the value and that
macro can then be added separately to either the Quick Access Toolbar ("the" toolbar in Word) or as a Ribbon customization.

OK, here's one that does a very basic validity check (are any shapes selected and is the input value numeric)

Sub Customize3D_Depth()
Dim ThreeDDepth As String
Dim MsgTitle As String
Dim ThreeD_Default As Variant

MsgTitle = "Custom 3D-Depth"
ThreeD_Default = 18
If Selection.ShapeRange.Count > 0 Then
ThreeDDepth = InputBox( _
"Enter Depth for selected Shapes", _
MsgTitle, ThreeD_Default)
If Not IsNumeric(ThreeDDepth) Then
MsgBox "You must enter a valid number!", _
vbOKOnly + vbCritical, MsgTitle
Exit Sub
End If
Selection.ShapeRange.ThreeD.Depth = Val(ThreeDDepth)
Else
MsgBox "No Shapes are selected.", _
vbOKOnly + vbCritical, MsgTitle
End If
End Sub


Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or reply in the newsgroup and not by e-mail

 

[Bob Buckland ?:-\)]

Hi Cindy,

Thank you, that's helpful to fill in that 'blank' (or actually the *lack* of a blank to fill in <g>) for that dialog.

===========

but it looks like one of the folks here who do more with Word macros may have to create a macro that prompts for the value and that
macro can then be added separately to either the Quick Access Toolbar ("the" toolbar in Word) or as a Ribbon customization.

OK, here's one that does a very basic validity check (are any shapes selected and is the input value numeric)

Sub Customize3D_Depth()
Dim ThreeDDepth As String
Dim MsgTitle As String
Dim ThreeD_Default As Variant

MsgTitle = "Custom 3D-Depth"
ThreeD_Default = 18
If Selection.ShapeRange.Count > 0 Then
ThreeDDepth = InputBox( _
"Enter Depth for selected Shapes", _
MsgTitle, ThreeD_Default)
If Not IsNumeric(ThreeDDepth) Then
MsgBox "You must enter a valid number!", _
vbOKOnly + vbCritical, MsgTitle
Exit Sub
End If
Selection.ShapeRange.ThreeD.Depth = Val(ThreeDDepth)
Else
MsgBox "No Shapes are selected.", _
vbOKOnly + vbCritical, MsgTitle
End If
End Sub


Cindy Meister >>
--

Bob Buckland ?
MS Office System Products MVP

*Courtesy is not expensive and can pay big dividends*

 

[Cindy M.]

Hi Bob,

Thank you, that's helpful to fill in that 'blank' (or actually the *lack* of a blank to fill in <g>) for that dialog.

You're welcome

Cindy Meister