• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 584
  • Last Modified:

Changes to some VB script which inserts WordArt

I have some code which inserts WordArt into excel.  I have tried to change the format of the wordart and it only applies to the first insertion.  I can see why it is doing that but do not know how to change it so that all the inserts are shaded...

I am really new to VB so any help would be much appreciated.
Thanks
 
For rw = 6 To ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Cells.Count).Row Step 20
            Set NewWordArt = ActiveSheet.Shapes.AddTextEffect( _
                PresetTextEffect:=msoTextEffect1, Text:="Generic", _
                FontName:="Arial Black", FontSize:=50, _
                FontBold:=msoFalse, FontItalic:=msoFalse, Left:=ActiveSheet.Range("B" & rw).Left, _
                Top:=ActiveSheet.Range("B" & rw).Top)
             
            With ActiveSheet.Shapes("WordArt 1").Select
                Selection.ShapeRange.Fill.Visible = msoTrue
                Selection.ShapeRange.Fill.Solid
                Selection.ShapeRange.Fill.ForeColor.SchemeColor = 22
                Selection.ShapeRange.Fill.Transparency = 0.6
                Selection.ShapeRange.Line.Weight = 0.25
                Selection.ShapeRange.Line.DashStyle = msoLineSolid
                Selection.ShapeRange.Line.Style = msoLineSingle
                Selection.ShapeRange.Line.Transparency = 1#
                Selection.ShapeRange.Line.Visible = msoTrue
                Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
                Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
            End With

Open in new window

0
NicBrambles
Asked:
NicBrambles
1 Solution
 
shekharsomCommented:
use foreach statement:

following is a sample code

Dim sh As Shape

For Each sh In ActiveSheet.Shapes
    If sh.Type = msoFormControl Then
        If sh.FormControlType = xlButtonControl Then
            sh.Visible = Not sh.Visible
        End If
    End If
Next sh

change the controltype to wordart type.
0
 
Rory ArchibaldCommented:
Try this:

For rw = 6 To ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Cells.Count).Row Step 20
            Set newwordart = ActiveSheet.Shapes.AddTextEffect( _
                PresetTextEffect:=msoTextEffect1, Text:="Generic", _
                FontName:="Arial Black", FontSize:=50, _
                FontBold:=msoFalse, FontItalic:=msoFalse, Left:=ActiveSheet.Range("B" & rw).Left, _
                Top:=ActiveSheet.Range("B" & rw).Top)
             
            With newwordart
               With .Fill
                  .Visible = msoTrue
                  .Solid
                  .ForeColor.SchemeColor = 22
                  .Transparency = 0.6
               End With
               With .Line
                  .Weight = 0.25
                  .DashStyle = msoLineSolid
                  .Style = msoLineSingle
                  .Transparency = 1#
                  .Visible = msoTrue
                  .ForeColor.RGB = RGB(0, 0, 0)
                  .BackColor.RGB = RGB(255, 255, 255)
               End With
            End With

Open in new window

0
 
NicBramblesAuthor Commented:
That's perfect thank you.
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now