Solved

Changes to some VB script which inserts WordArt

Posted on 2008-06-20
3
571 Views
Last Modified: 2010-04-21
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
Comment
Question by:NicBrambles
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
3 Comments
 
LVL 4

Expert Comment

by:shekharsom
ID: 21830123
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
 
LVL 85

Accepted Solution

by:
Rory Archibald earned 400 total points
ID: 21830797
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
 

Author Closing Comment

by:NicBrambles
ID: 31469080
That's perfect thank you.
0

Featured Post

Online Training Solution

Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A little background as to how I came to I design this code: Around 5 years ago I designed an add-in that formatted Excel files to a corporate standard, applying different cell colours and font type depending on whether the cells contained inputs,…
Not long ago I saw a question in the VB Script forum that I thought would not take much time. You can read that question (Question ID  (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_28455246.html)28455246) Here (http…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…
Many functions in Excel can make decisions. The most simple of these is the IF function: it returns a value depending on whether a condition you describe is true or false. Once you get the hang of using the IF function, you will find it easier to us…

738 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question