[[20071105114409]]　『オートシェイプの一括変更』（ヲダ）　ページの最後に飛ぶ

『オートシェイプの一括変更』（ヲダ）
こんにちゎ。
シート別のオートシェイプを一括変更する方法はありますかぁ？

 どのようなものを、どのように変更したいのでしょう？
 (MARBIN)

四角い図形を一部、削除したいのと、図形のなかのテキストを変更したのです。
同じフォーマットが数枚あり、一括（一気に）変更する方法はありますか？

 >四角い図形を一部、削除したいのと
 削除するものには規則性がありますか？
 エクセル君が他のシェイプと区別すること ができなければ、
 自動化できません。

 >図形のなかのテキストを変更したのです。
　どのようなテキストをどのように変更したいのでしょう？
 (MARBIN)

どのようなテキストをどのように変更したいのでしょう？＞

例：）部長　　⇒　　課長　　といったように数枚のシートに分かれているオートシェイプの中の文字を一括変更できるのでしょうか？

 VBAになると思います。

 シートインデックスが1と2のシートのシェイプのうち、テキストが"部長"の
 もののテキストを"課長"に変更するサンプルです。

 Dim i As Integer
 Dim ws As Worksheet
 Dim sp As Object
 On Error Resume Next
  For i = 2 To 3
   Set ws = Worksheets(i)
   For Each sp In ws.DrawingObjects
    If sp.Characters.Text = "部長" Then sp.Characters.Text = "課長"
   Next sp
  Next i
 (MARBIN)

コメント返信：

[ 一覧(最新更新順) ]

[[20071105114409]] 『オートシェイプの一括変更』（ヲダ） ページの最後に飛ぶ

[[20071105114409]]　『オートシェイプの一括変更』（ヲダ）　ページの最後に飛ぶ