0

Ex.
You have a file in excel. In excel file they have 3 Rectangles namely Rectangle 1, 2 and 3.

Then in my program I open that file, then I want to add text inside the Rectangle.

Thanks!

2
Contributors
3
Replies
13
Views
4 Years
Discussion Span
Last Post by nashy13
0

In Excel Macro this is the code..

ActiveSheet.Shapes.Range(Array("Rectangle 3")).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Thanks"
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 6). _
    ParagraphFormat
    .FirstLineIndent = 0
    .Alignment = msoAlignLeft
End With
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 6).Font
    .NameComplexScript = "+mn-cs"
    .NameFarEast = "+mn-ea"
    .Fill.Visible = msoTrue
    .Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
    .Fill.ForeColor.TintAndShade = 0
    .Fill.ForeColor.Brightness = 0
    .Fill.Transparency = 0
    .Fill.Solid
    .Size = 11
    .Name = "+mn-lt"
End With

So I try to debug it but suddenly its not working. and I try to recontruct my code before.

    Dim chartrange = excel.range
    chartRange = xlWorkSheet.Range("a1", "c1")
    chartRange.Merge()
    xlWorkSheet.Cells(1, 1) = "Hello"
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.