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