I have created a worksheet to be used by a number of people at work and my issue is how to add sufficient instructions for some of the less tech minded users.
I have entered text in the comment box to 'assist', but would like to add either a picture WITH the text or something to the effect of "for further asistance and make the last part a hyperlink.
I need to find an easy way to locate an image on my server and upon selection rather than inserting the actual image I need to insert the image path. e.g. "s:imageshighresgreen1234.jpg"
View 3 Replies View RelatedI have hundreds or even thousands of images stored at C:Mydocument location. Is there a way to write a formula to hyperlink these images in an excel spreadsheet having the exact file name listed in one column. I only know how to hyperlink them individually. Since I have so many of them, it is nice to have a formula to do it quickly.
A few example of the image file names are:
FTCa 108328A1 CD11B-CD68
FTCa 108208A1 Folr2-CD68
FTCa 108208A1 CD11B-CD68
FTCa 77398A2 CD11B-CD68
I have hyperlinks betwene one worksheet to another - they only only hyperlinked thourh column & rows (eg: A100) etc. How can I lock these hyperlinks but still allow users to insert new rows without losing their place?
View 2 Replies View RelatedIs there a way to display the image of a hyperlink in a cell?
View 5 Replies View RelatedThe macro below only works for a single cell, how to include merged cells?
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
On Error Resume Next
Dim cmtText As String
[Code]....
I know how to insert, read and manage comments fields in Excel, however I want to be able to refer to a comment in another spreadsheet. For example
Spreadheet One contains a series of figures, against one of which a comment has been attached.
Spreadsheet Two has links pulling information from cells in various spreadsheets including the cell in Spreadsheet One which has the comment.
I need a macro that will do the following scenarios.
1. I have two workbooks.
a. The first contains a sheet with " Names" listed in column A.
b. The 2nd contains a sheet with "Names" listed similar to first workbook. The only difference is that the 2nd workbook contains 2 other columns, "Age" in B and "Address" in C.
2. Only the 1st workbook is opened.
3. When I click a name in the 1st workbook, it will look for a match with that of the 2nd workbook.
a. If there's a match, it will copy the corresponding "Age" and "Address" and display them as comment to that name in the 1st workbook.
b. Else, it will display a comment that no record was found.
I have a multi-row ,multi-column spreadsheet which lists furniture items, and with some plain Excel formulas allows me to create a proper list.
I'm using Excel as a database, in Sheet1 I have all the data, and Sheet2 is actually where I select the data and set the list of the chosen items.
Now, I have the images for all the items listed in Sheet1 in the same folder of the xlsm file, and I want to insert the proper image in a given cell in the given row.
Looking for something which may do the trick I did find this code in your site and it actually works for me!
Now, what I need is to provide the PictureFileName and TargetCell via parameters already present in the spreadsheet.
Say I want to retrieve the image shelves.jpg which is in the folder DATABASEimgs in your code mentioned above I manually set the string for PictureFileName like this
Is it possibe to insert an image (such as Picture1 which is the name of an image created by Insert>Name>Define) using an IF statement as in:
=IF(A1=B1,+Picture1,"")
I was wondering if it is possible to make a picture box show a sheet from a pdf file?
I have a lot of pdf files with maps (all in one folder) which I need to be able to show the maps on excel by using a cell for the reference.
E.G: I type in Cell A1 = "Map1" then B1:D4 (merged Cells) shows the map from the PDF file Map1.pdf from the folder.
I've created a user form that the code will describe. However I would like to place a sized image next to it. for example A1 will be name, A2 will be rank and A3 will have a "jpeg/jpg" image.
Could manage to do all three with the exception that I cannot get the image to go into A3 and resize accordingly.
I want to be able to click a button on my Excel Spreadsheet that will take me to my JPeg Photo location and allow me to add a JPeg Photo.
I have the below code but i does not recognise the JPeg File, so it work upto actually being able to select an image.
I want to insert image on my userform, but I have problems with It. Image is originally .png and has no background, which is what I need.
Excel doesn't allow me to use .png, so I had to convert It to .jpg, but then background is included. Even that would be o.k., If I could somehow change picture background to "&H8000000F&" system colour, but failed to do that also.
So I tried with converting file to .ico, and again Excel recognizes It as invalid picture.
I just want to insert image, and leave background same colour as Userform.
insert image in the body of the email.
Sub Mailer()
'Sheets("BB Email Data").Select
pathname = Range("A1").Value 'defines attachment
Dim objol As New Outlook.Application
Dim objmail As MailItem
Set objol = New Outlook.Application
Set objmail = objol.CreateItem(olMailItem)
[code].....
I have the code which generates email through out look with customized subject and body of the letter, is it possible to insert the image(JPEG or any format) with text (not as an attachment) in body of the email, how to do it.
PHP Code:
If FileName <> "" Then RDB_Mail_PDF_Outlook FileName, "ron@debruin.nl", "This is the subject", _
"This is the body of mail where i want to insert image" _ & vbNewLine & vbNewLine & "Regards Ron de bruin", False
I have a macro as follows which allows me to select multiple images and it inserts them into excel. Firstly it deletes previous images.
It also increases the size of the rows to 250 and column to 100 to make the image size standard.
I have it skipping every second row which I intend to add the filename of the image.
What is it currently doing is adding the first filename (including path) in A5 and then not showing the next filenames.
I am using ActiveCell.FormulaR1C1 = PicList to generate the filename.
How to get the remaining names? Also I would only like the filename if possible and not the full path.
Sub InsertPictures()
Dim filename As Variant
Dim PicList() As Variant
Dim PicFormat As String
Dim Rng As Range
Dim sShape As Shape
Dim shp As Shape
[Code]...
Im sure my Macro is probably overkill for what I am trying to do however I have merged about 4 macros I have found together.
I want a function that takes a URL string and then inserts a picture into the cell and fits it into the size of the cell (which I made square). The images are small but over 50 000 so it would be impractical to download them all; thus I want the spreadsheet to insert a specific one, based on my formula.
Tried a macro I found but it only gave the the '1004 Picture class' error.
So the function must be simple to use, maybe: ....
I have a worksheet (Covers) that is going to be the front and back covers for a binder.
The title/text portion is automatically filled from cells elsewhere in the workbook.
I have a button to bring up a userform that allows one to select the images (3 .jpg images) you wish to use on the cover pages.
I have code that successfully brings up the userform, and allows image selection and preview within the userform.
Now I want to insert these selected images into the worksheet, centered on specified cells and sized (zoom) to a maximum width/height (whichever is reached first).
Can a blank Picture be inserted with its size specified/fixed, then use code (Image1 = LoadPicture?) to change what is displayed?
Or do I have to calculate the size, center it on the page, and insert the image each time?
The code (in part) for the UserForm looks like:
Private Sub SelFcvrImg_Click()
Dim FCpicName As Variant
ChDir ("S:DanBuilder Logos-Photos")
FCpicName = Application. GetOpenFilename(Title:="Select an Image!", _
fileFilter:="Pictures (*.bmp;*.gif;*.tif;*.jpg),*bmp;*gif;*.tif;*.jpg")
If FCpicName <> False Then InsertImgForm.FCoverImgPrvw.Picture = LoadPicture(FCpicName)
End Sub
The UserForm has an Image (preview) with PictureSizeMode set to zoom.
I'm really after the same thing embedded in the sheet...
Split from Open Image Using A String & Cell For File Name. what it looks like, but maybe I am not using the FollowHyperlink correctly?
Sub testFloodMap()
Application. ScreenUpdating = False
Sheets("FloodMap").Select
'Picture = ActiveSheet. Range("W4").Value This works manually with the path in "W4"
'Now I tried to use the FollowHyperlink next
Application.FollowHyperlink "C:Documents and Settingsjim hutchMy DocumentsNarrative1My Appraisals2009-" & Sheets("Base").Range("B2") & "floodmap.jpg"
Sheets("FloodMap").Select
ActiveSheet.Pictures.Insert(Picture).Select
Exists = Dir(Picture, vbNormal).....................
I'm trying to insert a hyperlink to another excel file such that when you click on the link it opens that file up... When i go to insert a hyperlink and i select the file.. when i click on the file it says "the adress of this site is not valid. Check the address and try again" The file is on another drive on the server and i was wondering what the restrictions are in terms of where the files have to be in relativity to each other
View 4 Replies View RelatedI would like to be able to insert the value of a cell into a weblink. Here is the link.
http://www.thephonebook.bt.com/publisha.content/en/search/business_by_name/search.publisha?BusinessName=<&Y3&>&Location=&x=51&y=8
The <&Y3&> is were I would like the value of cell y2 to populate.
In this hyperlink, I like to change "EUR" to whatever is in cell A2.
Code:
=HYPERLINK("http://finance.yahoo.com/currency-converter/?u#from=QAR;to=AED;amt=1")
I wondered if it would be possible to copy the url from the active page from my browser into Excel using VBA (using a private sub). Something like:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim url As String
'url = the url from my active tab in my browser
If Target.Column = 1 And Not IsEmpty(Target) Then
Target.Offset(, 1).Value = url
End If
End Sub
where e.g. the active url in my browser is http://www.mrexcel.com/forum/forumdisplay.php?f=10.
I have a workbook with 100 worksheets, and one TOC (table of contents) sheet. The TOC sheet is full of hyperlinks, linking to specific places in the workbook, and all other worksheets have a link that take it back to TOC sheet, selecting the cell that would link back to the sheet I just came from.
When I insert a new row, say above row 18, the links in all sheets that point to anything below row 18, point to a wrong cell now. Anything that pointed to A26 will continue to point to A26, but because of the row I inserted, the cell it should be linked to is now cell A27.
Is there a way to insert a row, and have all hyperlinks in the workbook adjust accordingly?
Programming Excel VBA Macro to do OCR (text recognition) from a prt scr screen capture image and input the text into cells. Currently my Excel file has a push-button, and upon clicking on it the macro pastes into Excel the current clipboard image I have created by pressing prt scr while in another program. The macro then crops the image to the region with the applicable text. I have to then manually type the text I see in image format into the appropriate cells.
the VBA coding to automate this? I'd like it to use the clipboard image and run it through OneNote OCR, after which the applicable text values are automatically entered into the cells. Ideally the code will first crop to the region with the desired text before it does OCR. If this is not feasible, it will need to incorporate a method (keyword search?) to hone in on the desired text after the entire prt scr image has been OCRed.
I want to put a hyperlink into an existing spreadsheet (which already has some hyperlinks in) but for some reason that option is now greyed out on my tool bar.
View 3 Replies View Relatedwith the following: The VBA macro I am using, is derived from the excellent "Table of Contents" macro written by Erik Van Geit, a few years ago.
I have a workbook (in Excel 2007, Windows XP) with an Index sheet and 200 other sheets (called ScreenShot1 to ScreenShot200). Each of these 200 sheets has had an image pasted in the top left corner.
At present, using the macro below, a hyperlink is placed in cell A1 on each of these 200 sheets (it's behind the image) that links to cell M1 on the Index sheet. What I would like this macro to do is make each image the hyperlink back to cell M1 on the Index sheet. Please note that the images are not named.
VBA code below,
Sub create_TOC()
Dim i As Integer
Dim msg As String
Dim fc_order As Range
Dim sht As Object
'**** EDIT the following lines ****
Const TOC = "Table of Contents"
Const Index = "Index"
Const CellLink = "A1"
'**** END EDIT ****
[Code]....
I have a VBA that can add a comment based on the cell value, however, I need it to do it for the whole worksheet and not just one cell. I am pretty new to using VBA's, so this is the best code I could find that would perform what I need. If there is a way to have it do run a vlookup, instead of me listing all the cases, that would be great as well.
VB:
Sub AddComment()
Dim strText As String
With Range("s6")
Select Case UCase(.Value)
Case "UPT": strText = "UnPaid Tardy/Late"
[Code] .....
I have a situation where textual comments are entered into a cell where the comments are supposed to begin with a date in mm/dd format. Some enter all 5 characters but some enter m / d in if appropriate to the date, e.g., 9/6 vs 09/06.
I'm trying to take the left 5 characters and compare that to the current date - 7 to ID aged comments and highlight that cell. I currently do this by populating a variable LastUpdate (dim as string) with the first 5 characters, then run this IF statement.
If LastUpdate < Date - 7 Then
Range("O" & i).Select
Selection = "Comments over 7 days old."
End If
This works find except in situations where there is a zero for the first character after the "/", such as "11/05." The code doesn't properly calculate the date and assumes it's old. "11/5" works just fine. I thought I could try translating the variable into a proper date. I "borrowed" this formula from another post herein: =DATE(2012, MID(N12,1,FIND("/",N12)-1), MID(N12,FIND("/",N12)+1,2)). This works fine as a formula to translate the characters into a date but I don't know how to do this same thing in vba.
