Thanks Thanks:  0
Likes Likes:  0
Page 2 of 2 FirstFirst 12
Results 11 to 20 of 20

Thread: link to a pic

  1. #11
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Millbank, London, UK
    Posts
    1,790
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    DK,

    mine are Peggsy's sister from Dreamteam !

    Mmmmmmmm

  2. #12
    Board Regular
    Join Date
    Feb 2002
    Posts
    3,184
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    DK and Chris --- your sick men i tell you!

    Me i would have amonated Excel XP logo but then as you know i am sad git boaring and talantless.

    Such is my part of South London!

    On pulling you leg guys...

    Cheers Chris. Ivan has paln down uners for his guys so i have a sneeky my old pal will compeat his guys in NZ against our UK pals in a stand off, thier compitition against us.

    Ivans dead on and knows the rule FIA rules and Ivan a man of honesty so tell you this FUN FUN FUN how cool; is that.!


    Free Excel based Web Toolbar available here.

    Jack in the UK
    J & R Excel Solutions
    "making Excel work for you"

  3. #13
    MrExcel MVP
    Join Date
    Feb 2002
    Location
    Millbank, London, UK
    Posts
    1,790
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Jack - updated version in yer otmail


  4. #14
    MrExcel MVP Ivan F Moala's Avatar
    Join Date
    Feb 2002
    Location
    Auckland, New Zealand
    Posts
    4,209
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    On 2002-03-10 07:55, Chris Davison wrote:
    Jack - updated version in yer otmail

    Hey Chris et All thanks for the File.....
    we'll see.....


    cheers all

    Ivan

  5. #15
    New Member
    Join Date
    Mar 2002
    Location
    Australia
    Posts
    43
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Ivan (or anybody else), can you explain what the Target variable in the following line does:
    Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

    It is obviously grabbing some sort of range address but is it the active cell, the active sheet or what? And I take it this macro is acivated as soon as a user does *anything* in the sheet?

    Thanks

    Penfold

  6. #16
    MrExcel MVP Ivan F Moala's Avatar
    Join Date
    Feb 2002
    Location
    Auckland, New Zealand
    Posts
    4,209
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    On 2002-03-11 00:03, Penfold wrote:
    Ivan (or anybody else), can you explain what the Target variable in the following line does:
    Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

    It is obviously grabbing some sort of range address but is it the active cell, the active sheet or what? And I take it this macro is acivated as soon as a user does *anything* in the sheet?

    Thanks

    Penfold
    It is indeed the Activecell of the Activesheet
    It is a Event procedure...A selection change
    procedure applicable to the sheet the code resides in.
    So when a user changes selection either by
    cursoring to or clicking on or tabing to a
    diff cell this Event fires....


    Ivan

  7. #17
    New Member
    Join Date
    Mar 2002
    Location
    Australia
    Posts
    43
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Thanks Ivan. I tried out the code and was impressed with the results, except that it bombs if you select a range of cells with the mouse - presumably because the macro relies on adding notes on a cell by cell basis.

    Anyway, its given me plenty of ideas to experiment with! Thanks again.

    Penfold

  8. #18
    MrExcel MVP Ivan F Moala's Avatar
    Join Date
    Feb 2002
    Location
    Auckland, New Zealand
    Posts
    4,209
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    On 2002-03-11 01:11, Penfold wrote:
    Thanks Ivan. I tried out the code and was impressed with the results, except that it bombs if you select a range of cells with the mouse - presumably because the macro relies on adding notes on a cell by cell basis.

    Anyway, its given me plenty of ideas to experiment with! Thanks again.

    Penfold
    For the event code change to this

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rgF1 As Range

    If Target.Cells.Count > 1 Then Exit Sub

    Set rgF1 = Range("A1:A6")
    Set rgF1 = Application.Intersect(Target, rgF1)
    If Not rgF1 Is Nothing Then
    CommentPict (Target.Value)
    End If
    End Sub


    Ivan

  9. #19
    Board Regular
    Join Date
    Feb 2002
    Posts
    3,184
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    MARKER Comment Images
    Free Excel based Web Toolbar available here.

    Jack in the UK
    J & R Excel Solutions
    "making Excel work for you"

  10. #20
    New Member
    Join Date
    Jul 2002
    Posts
    12
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Dear Ivan,

    I have tried your code, but it gives me an error "Compile error: Argument not optional" on this line in the code:
    ".Comment.Shape.Fill.UserPicture Pict"

    Would you please help me.
    Thanks
    Askar

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
  •