2014年8月15日金曜日

(VBA)ある条件に合致したグラフのタイトルをまとめて書き換える

シート名で判別してグラフのタイトルをまとめて設定するテスト
        
Sub hoge()

  Dim bk As Workbook: Set bk = Workbooks("3rdData_p2_グラフ.xlsx")
  Dim s As Worksheet 
  
  Dim co As ChartObject, ch As Chart
  Dim buf As String
  
  For Each s In bk.Worksheets

    If InStr(1, s.Name, "AtRisk") > 0 Then

      For Each co In s.ChartObjects
        
        Set ch = co.Chart
      
        ch.HasTitle = True
        buf = ch.ChartTitle.Text
        
        ch.ChartTitle.Text = Replace(buf, "良好群", "Risk群")
            
      Next
      
    ElseIf InStr(1, s.Name, "malnu") > 0 Then

      For Each co In s.ChartObjects
      
        Set ch = co.Chart
      
        ch.HasTitle = True
        buf = ch.ChartTitle.Text
        
        ch.ChartTitle.Text = Replace(buf, "良好群", "危険群")
            
      Next

    End If

  Next

End Sub
つーかよ全部同じ名前にすんじゃねーよ確認しろよ

0 コメント:

コメントを投稿