I am putting together a price list in excel and using images and hyperlinks to jazz it up a bit - what I am finding is that if I insert a 25KB GIF image, the excel file grows in size by over 100KB
why is this disproportionate growth happening and is there a way around it - I dont want my Price List growing too large but need the images....?
I had copied a macro from this forum [it was posted by either shg or NBVC], and I modified it to fit my needs. The macro creates a new word document and sends a series of cells from an excel worksheet column to this word file. Everything works fine, but now I need to insert a picture after row 14. I have inserted the code [colored red], but I am sure the syntax or something isn't right. That part doesn't work.
View 2 Replies View RelatedWorkbook Password Protect 2 Levels. I have managed to write simple but effective code that allows only one password to be enetered to open a SS & offers 3 levels of protection, limited permission to enter data, read-only & data completely hidden. This is excellent for my needs however I want the user who has limited rw to be able to insert a pic file which is their signature but because the sheet has protected cells it won't allow user to insert picture jpg file.
I have just thought of a creative solution tho. What if the picture file is already saved in the workbook and by using code to ask to insert pic file it copies from one location in SS to the appropriate cell in the worksheets?
The scenario is that I have fortnightly timesheets in 12 calendar months in 12 separate sheets. When staff member fills in timesheet I want them to insert signature for that f/night indicating thatthey have filled it in & it is correct but because of protection it won't allow me to.
Explored a few posts on my topic, but didn't quite find what I needed.
I need to open the Insert Picture dialog with it pointed at C:My DocumentsTemp. (Users will be required to save their images files to this location only).
Attempted to run a macro to get the code, but the dialog box forces you to select a file. I only need to get some low skilled users to the folder and let them select the image to insert.
I Have Inspection Reports To Do
And They Come In With One Big Text Srting
I Haveused Formuee To Seperate Them And A Macro To Put Them On Seperate Sheets.but...
I Want To Insert A Picture (for More Indepth Reports)
Rather Than Inserting A Picture Can I Do A Macro That When It Is Run It Opens Up A Browser, Similar To The One In Insert Picture And Then Insert A Picture After The Bottom Cell And Resize It So It Will Be The Same Every Time? But At The Bottom Of The Last Line Of Data.
What I am trying to do is to give the user the ability to insert a photo and have it autosize into a range of cells--so far I can only get it to work with a single cell and a predefined file. Can this be refined so that rng references a group of cells and pic somehow lets the user input a file name or pick its name and location?
Sub test()
On Error Resume Next
Set pic = ActiveSheet.Pictures.Insert("C:
ange.gif")
On Error Goto 0
If Not pic Is Nothing Then 'Found it!'
Set rng = ActiveCell
With pic
.Height = rng.Height
.Width = rng.Width
.Left = rng.Left
.Top = rng.Top
End With
End If
End Sub
Using VBA, is it possible to paste a picture at a given location over a jpg picture file?
View 3 Replies View RelatedI have an excel file with about 200 images! This increases the filesize too much. So, I want to (if possible) have all the 200 images in different files, but still show all the pictures directly in Excel like before, without having the directly imported into excel. So, easy explained: I want to show a picture directly in excel that is in another file without having the picture increasing the filesize as before! How can i do this??
View 6 Replies View RelatedI am trying to code where when someone hits the command button it will popup with the browse form and they find the location of the file and it puts there choice in a cell. don't know if it matters but the location would always be a picture. Here is what I have but it shows -1 in the cell
HTML Dim strFilePath As Variant
strFilePath = Application.FileDialog(msoFileDialogFolderPicker).Show
shUserInformation.Range("D12").Value = strFilePath
I have a program operating in excel 2007 that extracts a picture from a URL and puts it into a PPT slide. I now discover that PPT 2007 doesn't allow this.
So my intent now is to download the jpg into a local file and then import into the PPT.
This is from a couple of sites:
[url]
[url]
At the top of the code:
Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
in the excel cell if a URL picture needs to be inserted it starts with the prefix "picture=" then the http address.
This did not work.
So I then copied the code from the websites into a module (changing the destination file and URL to mine of course) and called the procedure and still nothing.
I found thru this board's search function the solution to my original or saving excel range into a graphic file. {url} ...
View 6 Replies View RelatedI found this code on the web that I wanted to use to fit a picture into a cell. However, it sizes the picture proportionaly, and not to the cell size. How to get it to fit to the cell size.
(Also, how I can properly post code in a message. I read the user guide to the forum and it mentioned BB Tags, but I couldn't see what I need to do).
Public Sub FitPic()
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
[Code] ............
open the attachment & click the button. I'd like you to please help me in reducing both the height & width of the picture. So that when the button is clicked the pic. overall size will appear smaller.
View 9 Replies View RelatedHow do you convert all the picture files in a worksheet so they can be processed the same? Half my pictures have eight white adjustment circles framing them when they are selected, the other half have four blue circles and four blue squares.
View 2 Replies View RelatedI want a script that inserts a picture based upon criteria of another cell. So for instance if cell A1 = Mad then insert Mad.jpg else insert Happy.Jpg
I can get the picture inserted properly based upon the cell however the picture does not delete when I click the sub button again. I cannot make it delete Mad.jpg from it's location and replace it with Happy.jpg if the criteria in A1 says "Happy".
VB:
Sub Picture()
Dim myPict As Picture
Dim myPicts As Integer
[Code]....
I have two images that have a name on each sheet for reference. One is a thumbs up image, one is a thumbs down. They are both named tu_image and td_image respectively. I want to show the thumbs up image if a particular cell has a value of 10 and show the thumbs down image if that cell's value is < 10.
This check and display needs to be done about 20 times on different sheets and with different values. (i.e. Thumbs down should only show when the value is < 20, instead of 10.) Ideally this should take place when the workbook updates with new data. Is this possible?
I have this code tat I am using to important a picture via a comment box:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AI$10" Then
newpic = "J:help" & Range("AQ21").Value
Target.Comment.Shape.Fill.UserPicture newpic
End If
End Sub
The problem is if you put a value in AI10 that is not AQ21 it gives and error. I would like for it to call another cell (B3) for newpic in the case of a value that is not present in AI10.
I am looking for a way to insert a picture into a cell BUT the picture should not float. It should change its size whenever the cells size changes - as if it was inserted into a rectangle drawn from the "PAINT" Bar. An example (but it floats) can be seen in the attached picture/
View 2 Replies View RelatedIn Excel 2010, is there any way to paste a picture into a small picture/diagram box, and upon double clicking the picture it would explode to a larger size? And I guess double clicking it again would make it return to its original (smaller) size. I would be pasting several pictures into several different picture/diagram boxes and would need this to be a relative reference so that upon selection it explodes the appropriate picture?
View 1 Replies View RelatedI want to have a sample file in excel which store picture of student in comment, I did this, but when I want to insert picture the file dialog appears, and if I click cancel, then there is an error, why? If some one optimise the code it would be very nice
View 6 Replies View RelatedI got code that is installing a picture over a range on my sheet.
Now, I would like to add an hyperlink to the picture so if I click on it, I will be opening my Snap Picture application
Problem is every time I create or install a new picture, the name of it change so I can't install an hyperlink over a picture that I don't know the name...
Code:
Sub test2()
Dim MyDocument As Variant
Dim MyShape As Variant
Dim SelectImage As String
[Code]....
I'm looking to use a user form to insert a picture into excel.
The picture area would be 2" x 2", but a user would able to enter a smaller picture.
I'm wondering if this is even possible and how the heck you'd code something like this... my vba skills are still in the elementary stage.
I use the code below to insert an image and have it save with the file. I would like for the newly placed image/shape to be selected.
[Code] .....
I have done the above where when I select a picture name from a drop down list it displays the relevant picture in another cell by using the IF function in the named formula
My question is why cant I use VLOOKUP instead of IF in the named formula. When I use it it comes with an error.
how i can add a box on my sheet when i click on it to open the insert picture (or open picture). I need this for my recipes. I try the Image (Image ActiveX Control) but i do not now how to make it work. Also i try to insert picture each time but it takes me time to move it and re-size it every time. I need a faster way to add my pictures fast and in the same position every time.
View 5 Replies View RelatedI'm trying to insert a bmp file- small picture into an excel file (sheet 4) in vba.
how do I select the picture and copy it into the excel file.
i have saved some pictures in my excel sheet.
in the next sheet i want that when i write the picture name the picture will appear as vlookup helps in the getting text and nos. can i do this with pictures or i tried to get to much from excel.
I record a macro in Excel 2007 to insert a picture from a file in the active sheet, but when I stop recording it and I went so see the code and there was no code!!!
I did the same in Excel 2003 and the code was like this:
ActiveSheet.Pictures.Insert("c:1.jpg").Select
The code below will enable you to browse for a picture and insert it at cell location O9. It works great in excel '03 but when sub is ran in '07 it places the picture at about cell D5 and not really even lined up perfectly with that cell. Does any one have any idea why this is happening and how to make the sub work correctly in '07?
View 6 Replies View RelatedI have a approximately 17 workbooks, all with multiple worksheets within. I have a logo that I now want to add to each worksheet in every book.
What I would like to do is the following, on each worksheet.
Add 13 rows starting from the top A1 (this is to make room for a logo I want to add)Add the logo JPG file (which covers the range A1:F13) . This will be the same picture for all sheets. The picture properties should be "Locked" and "Don't move or size with cells". The path of where my logo is stored is C:UsersGrantDropboxEffExAdminLogosEffEx_logo-05Then select the entire contents of the workbook and uncheck "Locked" from the format control.Then apply protection (which leaves the picture locked) but allowing selection, inserting and formatting of rows/columns.
This will allow the users to still format columns and rows eg. autofit columns, but they cannot select and delete the logo.
I have tried using the Macro Recorder but when I select all sheets, I see that it records the actual sheet names and so this will obviously not work for when applying to other workbooks. Also, it did not record any of the Protection commands which I did.
how I can do this?
