How do you use the "Find and Replace" block
when everything is in text blocks or word art?
Ed,
As far as I know, you would have to write a macro to do this. Here's a
quick example:
Sub ReplaceShapeText()
Dim shp As Shape
Dim newText As String
For Each shp In ActiveSheet.Shapes
If (shp.Type = msoAutoShape And Not shp.Connector) Or _
shp.Type = msoTextBox Then
newText = Replace(shp.TextFrame.Characters.Text, _
"Text", "New Text", , , vbTextCompare)
shp.TextFrame.Characters.Text = newText
ElseIf shp.Type = msoTextEffect Then
newText = Replace(shp.TextEffect.Text, _
"Text", "New Text", , , vbTextCompare)
shp.TextEffect.Text = newText
End If
Next
End Sub
Substitute the real text for "text" and "New Text", of course.
How do you increase the spacing between
diagonal lines on the Drawing Toolbar,
the Fill Effects drop down arrow, click
on "fill effects", then click on the
tab marked Pattern?
As far as I know, there is no way to increase the spacing. You could
create your own bitmap with wider spacing and load it as a background
images in Fill Effects > Picture. But, the spacing would stretch and
vary by the size of the shape.
I do however still find it hard to understand
what qualities of excel you and your peers
have seen that has made you adopt it as your
format.
Daniel,
A few years back I would have agreed with you, but I changed my mind
for a variey of reasons. One reason is the wide spread usage of Excel.
That means anyone with Excel can share, edit, and maintain the
drawings. The other main reason is the convergence of diagrams, data,
and documents. Also, the price of drawing tools is a factor -
especially as you multiply that across an organization.
I ended up creating an Excel add-in to automate flowcharting in Excel.
You'd be surprised at the number of people who use the built-in
drawing tools in Office. I know I was.
Nick Hebb
BreezeTree Software
http://www.breezetree.com