I am trying to make a macro that will embed images into a worksheet for my company. I researched online and put one together from stuff I've seen posted but when I email the file, the receiver can not see the image. I believe it is because "inserting" a picture only inserts a link to the picture but not the actual picture. Is there a way to embed the picture using the same macro without the sender having to send the picture and the worksheet?
' photo1 Macro
Application.ScreenUpdating = False
'varible Picture1 is inserted down below - ***change both***
Picture1 = Application.GetOpenFilename("Picture,*.JPG,Picture,*.JPEG,Picture,*.GIF,Picture,*.BMP")
'edit "("Picture,*.*")" section to add or chanve visible file types
Column A, has image file names. We want to insert corresponding images in Column B
The images are in a folder. We would like to know if there is formula/procedure which will lookup the filename and grab that image from the folder and insert into Column B. The images size in the folder are 500x500 pixel, we would like the inserted images to be reduced to 30% of the original size.
I am in serious need of a macro that will search a folder for image names and replace them witha determined image name col. If this is possible it would be a live saver.
For an example
Skus.................Image Name from File (Imported)........Renamed Image
725564..............725564.jpg.................................."Text that I insert" 894646..............atol-894646.jpg............................"Text that I insert" 713246..............713246-atoll.jpg..........................."Text that I insert"
So baically I need images to be searched by sku and replaced with determined image name from a different column.
I have designed a macro to convert the contents of an excel sheet to HTML format and bring it to outlook email. Everything is getting copied in the email except an image. How to bring that image in the same email draft?
I have attached an example of what I am trying to achieve. I am looking to have a photo [jpeg] embedded into a cell so that when I call the cell up in a match formula it will call up the photo. I tried a couple of VB codes I found on the web but cannot get this to work.
I have a monthly task where I collect raw data, and make up various charts in PowerPoint.
I have been making the charts in PowerPoint as previously, the file size of the .ppt was too large as it was embedding the Excel sheets into the PowerPoint. Is there any way I can set up sheets in Excel so that I can update them every month and then run a macro so that it updates the graphs automatically (without the embedding)?
I think copying them over as a JPG might work but is there any other way? I have no idea about the code needed, and I'm using Office 2003.
By the time I started using a lot of VBA, the Auto_Open() and Auto_Close() methods' use was waning, supplanted by the _Open() and _BeforeClose() event handlers for the workbook object. So I never really got into the habit of using them.
However, I've been reading Bullen, Bovey & Green's book Professional Excel Development1 and they use Auto_Open() quite a bit. So I've been plinkin' around a bit trying to suss out the differences. Do I have this more or less correct?
If I put in both an Auto_Open() in a standard module and a Workbook_Open()in the WB's code module both execute. But if I were to have Application.EventsEnabled set to FALSE; the Auto_Open() still executes upon opening the workbook whereas the Workbook_Open() will not?2 And that since the open event handler runs before the Auto_Open() subroutine, using the Auto_Open() to insure that events are enabled does not cause the WB_Open() event handler to fire.
Auto_Close() runs even if EnableEvent = FALSE and (of course) WB_BeforeClose(...) does not fire. HOWEVER, just to make things interesting: if EnableEvents = TRUE and I hold down the SHIFT key while opening, neither of the open procedures fires. Whereas if I hold don the SHIFT key when closing, the _BeforeClose() event still gets raised; but the Auto_Close() does not run.
Does that about sum up the differences? Or are there more differences that I should be aware of?
1. If you have developed a few complex projects and more-or-less can run back through Walkenbach's PowerProgramming with VBA book without seeing too much that you've forgotten; then this is the book to take you to the next level.
How exactly does Excell treats uninitialized variables ? I have created a function which takes in one of the cell values as a parameter.. However, it seems that when I don't reference an empty cell, the code does not work. Let the function be ABC, and the let the cell be A1
When I use =ABC(....,A1,....) , it works However, when I use =ABC(....,,....) I am getting an eror
Now , I tried using the IsEmpty function , and it seems tht when i use ,, or ,"", then the variable is not caught.. however, the variable is caught when i use an empty cell such as ,A1,
FYI, I am using the vba's formula method to assign this function to a cell. So when I use "," & ActiveCell.Offset(to reach A1).Value & "," , I see blank ,, when A1 is empty
I'm currently having an issue with Clear All... which sets the font to Tahoma, size 11. Font is okay, but I have my default size set to 10. Everytime I Clear All on even a single cell, the row size increases from 13.50 to 14.25 (from 17 to 20 pixels).
Case "TD" strfilename = "\TomsblackibmTomsProposals" & strfilename
I would like to send this file by email if possible instead of to his computer. The user recently went from a desktop "in the office" to a laptop "all over the place".
Dim strPath As String, strPath2 As String, CurrPath As String
Dim WB1 As Workbook Dim WB2 As Workbook
Set WB1 = ActiveWorkbook
'First thing, save my work WB1.Save
CurrPath = WB1.Path
'ASSUMING THAT C6 and O3 are BOTH in WB1 'move this line HERE: only do this once, and concatenate in the Select..Case later 'doing thsi inside the Select..Case pulls values from WB2, which might cause errors.............................
I'm wanting to add a button on the last row of a worksheet to "add rows" above the buttion (entire row). I have some cells (6 total) that have a formula that needs to carry over to the newly created rows. Some cells remain blank but some cells need to have the formulas fill down to the new rows (i.e.: =sum(a2+1), =sum(a3+1)...
Is it possible to give option of choosing how many rows someone wants to insert?
Help in creating the button, option to choose # of rows and the macro to insert those rows.
I have recorded a basic macro that allows me to copy a formulas in cells CF11 to CH11, and it pastes it into cells in columns CJ to CL. Copy of code is below if you need it.
The issue I have is that I need to insert new coumns into the worksheet, and I need to copy the formulas from columns CF to CH, and they will now need to pasted to columns CN to CP. Note that this is a monthly report where we keep the prior months, so each month will need to add new columns. There are 8 tabs in the workbook, and they all use the same macro, just over different rows (columns all line up).
Is there a way that I can get the macro to paste into the correct column without me having to adjust the macro each time?
simple little procedure to insert columns on two sheets and call each by the same name. Macro runs off a command button and inserts a column at E:E and gives the user an input box with which to name the inserted columns.
see the attachment. You will see that I have recorded two macros:
1) To insert a new row for new people. 2) To insert a row for new animals.
With regards to 1), I would like to create a macro that copies the contents of the row with the penultimate name in the people section, and for a new row to be inserted beneath the copied cell. Similarly, with regards to 2) I would like to create a macro that copies the contents of the row with the penultimate name in the animal section, and for a new row to be inserted beneath the copied cell.
The issue that I have is that the macros do not copy the penultimate cell in each section, but copy a particular row, say row 11 each time I want to insert a new animal. So if I had inserted numerous new rows for the people section, and subsequently wanted to insert a new row for the animal section, I press “crtl+sht+a” which copies the contents of row 11 and which is not the contents of the penultimate row for the animal section.
I have two sections to this spreadsheet: 1) the entity section; 2) the order section.
I have created a macro to insert rows in both these sections. The macro appears to work fine for the first section but not for the second section. The problem I cannot solve is in respect of cells D9:D10. The macro is as follows: