Thanks Thanks:  0
Likes Likes:  0
Results 1 to 4 of 4

Thread: hyperlinks and fillcolor properties

  1. #1
    New Member
    Join Date
    May 2002
    Location
    india
    Posts
    8
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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

  2. #2
    MrExcel MVP
    Colo's Avatar
    Join Date
    Mar 2002
    Location
    Kobe, Japan
    Posts
    1,456
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    2 Thread(s)

    Default

    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

    Hope this helps + pen pineapple apple pen!

    Masaru Kaji aka Colo - cellmasters.net

  3. #3
    New Member
    Join Date
    May 2002
    Location
    india
    Posts
    8
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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 ]

  4. #4
    MrExcel MVP
    Join Date
    Apr 2002
    Location
    Vancouver BC , Canada
    Posts
    6,259
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    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:
    Code:
    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
    <MARQUEE>...........Never be afraid to try something new. Remember, amateurs built the ark, professionals built the Titanic...............The easiest thing to find is fault, don't be easy !.. --Anonymous--...</marquee>

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •