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.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|INSERT value into first row in 75 workbooks||8||38|
|Excel 2007 Random Generate List Based on Defined Source Cells||3||30|
|how to change this formula so that INDEX starts from C2 not C1||1||17|
Join the community of 500,000 technology professionals and ask your questions.