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!

Recommended Answers

What have you tried this far? What error message or what part are you stuck on?

Jump to Post

All 3 Replies

What have you tried this far? What error message or what part are you stuck on?

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"

UP! help me guys thanks!

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts learning and sharing knowledge.