inserting user email address

[stephenscott]

I have a excel template and am looking to insert the individual users email into a cell automatically.

Is there a user profile within windows or excel where I can capture the specific address or

Do I need to setup a sheet with all user names and email addresses?, if so how do I connect that list with the specific user to automatically populate the field?

Any advice would be much appreciated.

 

[stephenscott]

Thanks,

I was on vacation for the last week. I have now figured out the issues with the path and I am able to insert a jpg file into Sheet 1 .

However the image will not insert into the cell reference L51? it looks to be just positioned as Picture 1 around B5:D7 I am using XP and Excel 2007

The reference cell is a merged cell "unlocked", but it is not being placed anywhere near this reference

Also would I be able to set H51 as a hyperlink to make the email address active or convert it to a mailto: function somehow?

Private Sub Workbook_Open()
Dim asd As Variant
Dim dsa As String
Dim filepath As String
filepath = "C:\Documents and Settings\stephen.scott\"
asd = "@hotmail.com"
dsa = (Environ$("Username"))
ThisWorkbook.Sheets("Sheet1").Range("H51").Value = _
dsa & asd
ThisWorkbook.Sheets("Sheet1").Range("L51").Select
ActiveSheet.Pictures.Insert (filepath & dsa & ".jpg")
End Sub <!-- / message -->

 

[bensonsearch]

welcome back

with the picture its hard to insert into a cell. there is examples around using the comments section instead but I cant find them sorry.

Pictures nativatley insert into the sheet

with the hyperlink would be

ThisWorkbook.Sheets("Sheet1").Range("H51").Formula = "=HYPERLINK(""" & dsa& asd& """,""" & "Link" & """)"

"Link" in the above is the name it will show for hyperlink

 

[stephenscott]

Thank you again for your valuable assistance

I will look around to see if there are other solutions to inserting the jpg file.

Strange as it works exactly as I need at home using 7 and Excel 2003?

Cheers

 

[stephenscott]

I guess I spoke too soon? I know it must be something simple

Private Sub Workbook_Open()
Dim asd As Variant
Dim dsa As String
Dim filepath As String
filepath = "C:\My Documents\"
asd = "@hotmail.com"
dsa = (Environ$("Username"))
ThisWorkbook.Sheets("Sheet1").Range("H51").Formula = "=HYPERLINK(""" & dsa& asd& """,""" & "Link" & """)"
dsa & asd
ThisWorkbook.Sheets("Sheet1").Range("L51").Select
ActiveSheet.Pictures.Insert (filepath & dsa & ".jpg")
End Sub

 

[bensonsearch]

you have dsa and asd below the new code doing nothing:

ThisWorkbook.Sheets("Sheet1").Range("H51").Formula = "=HYPERLINK(""" & dsa& asd& """,""" & "Link" & """)"

dsa & asd ' here is the error delete this

 

[stephenscott]

Deleted as shown, still getting a compile error, syntax error
sorry the simple must have been me

Private Sub Workbook_Open()
Dim asd As Variant
Dim dsa As String
Dim filepath As String
filepath = "C:\My Documents\"
asd = "@hotmail.com"
dsa = (Environ$("Username"))
ThisWorkbook.Sheets("Sheet1").Range("H51")Formula = "=HYPERLINK(""" &dsa& asd& """,""" & "Link" & """)"
ThisWorkbook.Sheets("Sheet1").Range("L51").Select
ActiveSheet.Pictures.Insert (filepath & dsa & ".jpg")
End Sub

 

[bensonsearch]

simple errors happen all the time. here is the "."

ThisWorkbook.Sheets("Sheet1").Range("H51")Formula = "=HYPERLINK(""" &dsa& asd& """,""" & "Link" & """)"

should be

ThisWorkbook.Sheets("Sheet1").Range("H51").Formula = "=HYPERLINK(""" & dsa & asd & """,""" & "Link" & """)"

 

[stephenscott]

Thanks for your patience, working

 

[bensonsearch]

Thanks for your patience, working

no worries as always. let me know if you need to add anymore functions

 

[stephenscott]

I found some code which will insert a image from the web and am told it works in 2007, (it worked in 2003), my images are local and would appreciate assistance stitching this code into your code.

pPath = "C:\My Documents\" ?

As much detail as you can would be appreciated


Sub InsPicture()
pPath = "http://chandoo.org/images/pointy-haired-dilbert-excel-charts-tips.png"
With ActiveSheet.Pictures.Insert(pPath)
.Left = Range("L51").Left
.Top = Range("L51").Top
End With
End Sub