ExcelERD

http://www.vector.co.jp/soft/dl/winnt/business/se358397.html
ExcelERD

ExcelでER図の作成を補助 簡易DDLの作成、リバースエンジニアリングによる簡易ER図の作成にも対応

すごいと思うが、エクセル2007だとうまくいかない…。

オートシェイプ内の文字列を置換するマクロ
http://hawkeye-mihawk.blogspot.com/2007/06/blog-post.html

————————–

Sub Macro1()

Dim tbox As Object
Dim findStr As String
Dim replaceStr As String
Dim count As Long
Dim i As Long
Dim myDocument As Worksheet

findStr = InputBox(“置換対象文字列”)
replaceStr = InputBox(“置換文字”)

Set myDocument = Worksheets(1)

myDocument.Shapes.SelectAll

For i = 1 To myDocument.Shapes.count
myDocument.Shapes(i).Select
‘グループ化されていたら解除して検索
If myDocument.Shapes(i).Type = msoGroup Then
Selection.ShapeRange.Ungroup.Select
For Each tbox In Selection
If TypeName(tbox) = “TextBox” Then
tbox.Text = Replace(tbox.Text, findStr, replaceStr)
End If
Next
Selection.ShapeRange.Regroup.Select
Else
If myDocument.Shapes(i).Type = msoTextBox Then
Selection.Characters.Text = Replace(Selection.Characters.Text, findStr, replaceStr)
End If
End If
Next

End Sub