hyperlinks and fillcolor properties

[vinodh_cv]

hi,

I have created an excel application as an object and excel sheet as an object.
Dim excel_app As Object
Dim excel_sheet As Object
and i am opening the sheet and inserting data. So i got to do two applications in excel through vba. So please help me in this regard.

1. How can i add an hyperlink to an excel cell through vba. (I have inserted some data into excel cell, for which i have to add an hyperlink to that cell).

2. How can i fill color in excel cells through vba. I have used the below code to fill color, but i am getting an error saying, this property will not be supported.
excel_sheet.Range(excel_sheet.cells(2, 1), excel_sheet.cells(2, 4)).Select
excel_app.excel_sheet.selection.Interior.ColorIndex = xlAutomatic

So please send me the code for the above questions and also please send a link, where i can found the code for various other applications(excel through vba).

thanks & regards,
Vinodh kumar

[Colo]

Hi Vinodh kumar,

I don't know the link, so I made an only sample code.

Sub test()

    Dim excel_app As Object

    Dim excel_sheet As Object

    Set excel_app = CreateObject("excel.application")

    With excel_app

        .Visible = True

        .Workbooks.Add

        Set excel_sheet = .ActiveWorkbook.Sheets(1)

    End With



    With excel_sheet

    '1. How can i add an hyperlink to an excel cell through vba.

        .Hyperlinks.Add Anchor:=.Range("A1"), Address:= _

        "http://www.mrexcel.com/board/index.php"



    '2. How can i fill color in excel cells through vba.

        .Range("A1").Interior.ColorIndex = 6

    End With

    Set excel_app = Nothing

    Set excel_sheet = Nothing

End Sub

[vinodh_cv]

hi col,

thanks for the code, this works for me, i may post some other queries, please help me.

regards,
vinodh




[ This Message was edited by: vinodh_cv on 2002-05-12 23:57 ]

[Nimrod]

Hi Vin:
One suggestion I have for figuring these sorts of things out is to use your macro recorder. It's a pretty good way to learn the code.
For example for your color problem just start your macro recorder...change color of cell...stop macro recorder... view code.

Here's the code I get by doing this:

Sub ColorIt()
'
' ColorIt Macro
' Macro recorded 5/13/2002 by nimrod
'

'
    Range("A2").Select
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub