Delete Picture & Add Replacement

Dec 11, 2006

I have some code to insert a picture based on the value of a cell. The user would select the name of the item by selecting the cell and then clicking a macro button.

In my code I need to delete the previous picture first. I used the following


Sub get_system_picture()

Dim pic As Shape
Dim picname As String

picname = ActiveCell.Value
On Error Resume Next

'exit sub if selection is not a system number
If IsEmpty(ActiveCell) Then
MsgBox "Please select a system number first!"
Exit Sub
End If

If Not ActiveCell.Column = 2 Then
MsgBox "Please select a system number first!"
Exit Sub
End If

The problem is this also deletes my macro button! Any suggestions?

View 9 Replies


ADVERTISEMENT

Picture Won't Delete

Jan 2, 2009

I am working with a spreadsheet created by a predecessor and there is a picture at the top of one of the worksheets. When I select the picture and hit Delete, it seems to work, but the picture is still there. When I move it around the worksheet and resize it, a copy with the same name ("Picture 47") remains in the spot I moved it from. When I delete the resized/moved picture, it deletes, but the picture still remains in the original spot.

When I record a macro and select the picture and hit delete - or even when I move the picture and resize it - the recorded macro is blank.

All of the pictures seem to be named "Picture 47"

View 6 Replies View Related

Resize And Delete Picture

Oct 18, 2008

1.My macro code to insert picture from C:pictures to worksheet in colum B,but the insert pictue are very big. how can it is automatic resize with autofit in the height of the column B when i click the insert button.

2.I need some code for the delete button. if I need to delete some picture,when the delete button is clicked , the input box prompt for key in the picture name to delete. if i key in the pictue name , eg.pictue2 , so the name of pictue2 in the column A and the pictue2 in the column B is deleted.

View 2 Replies View Related

Delete Picture When Deleting Rows

Feb 24, 2008

I have made an excel document that I use as a order form. I have size columns; qty columns; style number columns etc. After I enter in qtys to a sheet I than sort the sheet by the qty column which than brings all of my ordered styles to the top of the order form. I than delete everything that is below the last column that has qtys in it.

I have added pictures on the side of the worksheet which fit into the grids of each row that corridinates with the appropriate style number. I can sort the worksheet and all of the pictures stay in the appropriate columns; so far so good.

The problem that I run into is now when I go to delete all of the other columns that the customer didnt order none of the pictures delete. They jsut pile on top of each other and I cant figure out how to embed each picture to the appropriate row so that when I delete the row the picture deletes as well. At this point I have to go through and delete picture by picture and there are way to many pictures to do this.

How do I imbed the pictures into the row so that when i delete the row the picture deletes as well

View 9 Replies View Related

Excel 2010 :: VBA - Delete Or Copy Row And Picture

Jan 23, 2012

I have a not too big catalog in Excel format (2010). Each row has a picture. Now, I need to generate sales report. Some items do not sell. For report purpose, I want to delete those rows along with the pictures. Possible to do so? I did an Internet search and found that drawing objects are not bonded to a row or a cell. Seems to me I cannot selectively delete picture in a particular row. True?

View 1 Replies View Related

Delete/Remove Picture From Image Control

May 15, 2008

I want to delete a picture from an image control in a worksheet when pressing a button. So my code is:

Private Sub CommandButton1_Click()
Sheets("Sheet1").Image1.Picture = LoadPicture("")
End Sub

Well, the problem is that this code only works when I create it. If I save and close the excel file when I open it again and I press the CommandButton1 I get the following error: Run-time error '-2147417848(80010108)' Method "Picture of object "IImage" failed.

View 6 Replies View Related

Excel 2010 :: Paste Picture Into Small Picture / Diagram Box?

Mar 19, 2012

In 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 Related

Put Chosen Picture In Comment & Retrieve Picture On Other Sheet

Nov 18, 2007

I 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 Related

Row() Replacement...

Apr 15, 2009

I have a formula to get unique values from a column....Can anyone help me to re write with the funcations in attached file...

Formula...
=IF(ROW()-3>$B$22,"",VLOOKUP(ROW()-3,$B$4:$C$22,2,FALSE))

Macro is not allowed...

View 10 Replies View Related

Replacement For COUNTIFS

Jun 4, 2009

I am looking for a replacement to the function COUNTIFS that will work with Excel 97-03. I have attached a sample of the document which will hopefully demonstrate what I am trying to achieve. On the sheet labelled 'Data' there is four headings (MerRefs, JCPRefs, Self Refs and Other) for the results beneath these headings I have used the Countifs function. I have attempted to use the SUMIF as an array formula but couldn't get this to work.

Also in the hope of killing two birds with one stone, I created this in Excel 2007 and in the past when I have saved documents as 97-03 documents it used to warn me of any incompatible functions included within the doc and now it doesent. Where can I switch that setting on?

View 10 Replies View Related

Display A Picture In A Cell When The Picture Name Is Selected

Jun 18, 2014

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.

View 6 Replies View Related

Random Sampling Without Replacement

Jun 5, 2009

I'm trying to take a random sample without replacement. The sample is also partially representative, e.g. if a certain proportion of the data are Class A and a certain proportion is Class B, that proportion is maintained in the sample. After the proportions are set, the observations within each class are randomized.

Is there anyway to sample a number of rows, where the number of rows is based on the value in another cell, without having to use a lookup function or index match? Sorry if the question is a little unclear; please let me know if you need any clarification.

View 10 Replies View Related

Formula Involving Replacement.

Feb 20, 2009

I have several walking routes that are labeled A through H. Each walking route has a different distance. .18 miles, 1.45 miles, etc. What i would like to do is be able to enter what routes are walked in a day and have it display the milage in a total cell. Example......

View 4 Replies View Related

Running Average With Replacement

Mar 15, 2009

In the attached spreadsheet, I want to do a running average of the "To" column (column G) for each company throughout the 8 year period. The only problem is I want to do it with replacement based on column D, meaning if the same brokerage firm comes out with a new announcement, it will replace the value of the old one in the running average calculation.

Here is an illustration of what I mean:

Looking at Company A between row 2 and 12, the value for Consensus in row 2 should be the average of Column G in row 2, row 3 is the average of Column G in row 3...row 11 is the average of Column G in row 2 to row 11, but row 12 will be the average of Column G in row 2 to 12 be excluding column 5's value because both column 5 and 12 are issued by the same brokerage.

I want excel to replace new recommendations by brokerages over the old ones in the running average calculation.

View 6 Replies View Related

Replacement For Using Indirect (Volatile)

Oct 30, 2009

What can I use to replace the portion in red because it is volatile?

=IF(A3="N","",RANK(B3,$B$2:INDIRECT("$B$17"),0)+COUNTIF($B$2:B3,B3)-1)

View 6 Replies View Related

Replacement Of Suffix Character

Mar 1, 2007

We have two characters : One debit shown as Dr
Another Credit shown as Cr

we have an excel sheet containing a problem as under:
row 1 row2
column 1 Sales 345670 Dr
column 2 Receipt 340000 Cr
column 3 TDS 5670 Cr

We have replaced the Suffix so that it looks as under:

Sales 345670
Receipt 340000 Cr
TDS 5670 Cr

Wewant the last two lines to have figures in the negative ie - 340000
- 5670
i.e. cr suffix change to negative figure -340000

View 9 Replies View Related

Cell Replacement (Substitution)

Feb 17, 2008

I have a cell with a url in it, Say in A1 I have the following url:
mrexcel.com/forum/forumdisplay.php?f=10

I want Cell B1 To copy what's in cell A1 but delete everthing after the backslash"/" In B1 want it to show: mrexcel.com

What I have now doesn't work, which is:
SUBSTITUTE(A1,"/*","")

An attempt to use a wildcard (*) to remove everything after the backslash. Doesn't work
What's the correct formula that will allow me to do this automatically?

View 9 Replies View Related

Replacement Of COUNTIFS Within 2003

May 29, 2008

Assist me in getting the following statement into Excel 2003 format - it is working OK in Excel 2007.

=COUNTIFS('Sheet 1'!$AB:$AB,"True",'Sheet 1'!$F:$F,'Sheet 2'!B13,'Sheet 2'!$J:$J,">="&H2,'Sheet 1'!$J:$J,"

View 9 Replies View Related

VBA Replacement For Index And Small Function

May 10, 2012

I compile ratings for racehorses and am currently extracting the data I need using an array formula. Unfortunately there are are many thousands of lines of data and it can take quite some time for the data to pull through.

Here is a sample of the formula's I am currently using. I cannot take credit for the formulas by the way I found them on the web.

IF(ISERROR(INDEX('Database 2012'!$A$1:$B$300,SMALL(IF('Database 2012'!$A$1:$A$300=Ratings!$A3,ROW('Database 2012'!$A$1:$A$300)),1),2)),"",INDEX('Database 2012'!$A$1:$B$300,SMALL(IF('Database 2012'!$A$1:$A$300=Ratings!$A3,ROW('Database 2012'!$A$1:$A$300)),1),2))

Basically I have 2 sheets (Database 2012, Database 2011) with the horse names with ratings next to them for each run, One sheet for this season one for last season.

These are sorted in date order. then I have a ratings sheet that shows the horse name and then to the right it has columns for each of its last 4 ratings.

The formulas I use look for the horse name on the database sheet then put the rating in latest rating in the first column then the 2nd latest in the next column and so on until the last 4 ratings are shown. If there are not 4 ratings to find the is an iserror at the beginning of the formula to populate that cell with a blank so that the errors dont show.

What I want to know is there a way of doing what the formula does using VBA and more importantly would it be quicker than using array formulas which are very slow to recalculate when there are 1000's of lines.

View 4 Replies View Related

WORKDAY Formula Replacement W/o Use Of Analysis Add-In

Jun 17, 2008

My boss has made it clear I can't require our people to use the add-in.

I have searched under WORKDAY as well as under Barry Houdini, since someone said he has come up with plenty of replacements for the Analysis add-in... but I am not finding it.. can someone help?

Using the add-in, this is what I have:

myCell.FormulaR1C1 = "=WORKDAY(RC[1],-RC[2])"

View 9 Replies View Related

Application.filesearch Replacement For 2007

Jun 26, 2008

I am trying to search a folder that is selected by the user for all .jpg files, and then place all those pictures onto a certain spreadsheet within the excel file. It also formats the pictures. Following is the
Private Sub BatchProcessThumb2x3()
Msg = "Select a file containing the photos you want to insert."
Directory = GetDirectory(Msg)
If Directory = "" Then Exit Sub
If Right(Directory, 1) "" Then Directory = Directory & ""

On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Directory
.Filename = "*.jpg"
.SearchSubFolders = False
.Execute

' Select begining range
Worksheets("Thumbnail (2x3)").Select
Range("B4").Select
' Loop through all files and process them

For i = 1 To .FoundFiles.Count..............

View 9 Replies View Related

Sumproduct Replacement. Calculations Slow

Aug 9, 2006

I was wondering if is possible to replace SUMPRODUCT with code. Right now I have formulas like these throughout my sheet and I think they are causing it to be slow:

=SUMPRODUCT(--($B$4:$B$1002<=B4),--($M$4:$M$1002="PROD"),--($O$4:$O$1002="O"))

I also have the following code in my worksheet. I don't know if anything here is causing it to take so long to "calculate cells." Also my code just stopped coloring the row ranges and I not sure what cause it to stop working.

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "O:O"
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
'Begin coloring row ranges based on these requirements
If .Row > 3 Then
If Me.Cells(.Row, "O").Value = "" Or Me.Cells(.Row, "O").Value = "O" Or Me.Cells(.Row, "O").Value = "H" Then
Me.Cells(.Row, "A").Resize(, 26).Interior.ColorIndex = 0
End If.................

View 6 Replies View Related

Non Volatile Replacement For INDIRECT In SUMIFS Formula

Dec 4, 2013

Okay so I'm trying to us the SUMIFS formula to add values on a different sheet based on criteria on that sheet but I want to use a text string on the sheet with the SUMIFS formula to reference the sheet with the data on it.

My original formula was:

=SUMIFS(INDIRECT("'"&A2&"'!K4:K500"),INDIRECT("'"&$A$2&"'!B4:B500"),"=LEFT(AA1,2)",LEFT(INDIRECT("'"&$A$2&"'!C4:C500"),3),"=MID(AA1,7,3)")

However I kept getting an error and excel said that INDIRECT("'"&A2&"'!K4:K500") was volatile, so I tried to replace it with INDEX and my formula was:

=SUMIFS(INDEX(A2:A2,1)&"'!K4:K500",INDEX(A2:A2,1)&"'!B4:B500",LEFT(AA1,2),LEFT(INDEX(A2:A2,1)&"'!C5:C500",3),MID(AA1,7,3))

However INDEX(A2:A2,1)&"'!K4:K500" returns the value "1251062 EP.EL+CB-A10'!K4:K500" which wont calculate properly because of the quotation marks but excel is auto inserting them.

View 3 Replies View Related

Macro To Do A Global Replacement Dependent Of Languages

Nov 22, 2006

How could I have a macro which translates formulas on file open since Excel doesn't do it itself for functinos from add-ins like YEARFRAC?

View 9 Replies View Related

Application.filesearch Replacement For Office 2007

Jun 20, 2007

In the following thread, richphillips wonders about Application.Filesearch
Application.filesearch In Office 2007

Is there a replacement for this? I have several macros that use Application.Filesearch and I would like it to work not only with Excel 2003 but also with Excel 2007. This is the function

Function CreateFileList(FileFilter As String, _
IncludeSubFolder As Boolean) As Variant
' returns the full filename for files matching
' the filter criteria in the current folder
Dim FileList() As String, FileCount As Long
CreateFileList = ""
Erase FileList
If FileFilter = "" Then FileFilter = "*.*" ' all files
Debug.Print CurDir
strFolder = BrowseForFolderShell(, , , 0)
If strFolder = "" Then
MsgBox "You Cancelled"
Exit Function
End If............

View 9 Replies View Related

Replace Method Error When Replacement Too Long

Oct 4, 2007

I have the following code written:

If InStr( Cells(i, 3).Value, "Other") > 0 Then _
Cells(i, 3).Replace What:="Other", Replacement:=Cells(i, 4).Value

This seems to work fine for the most part. However, if the value in Cells(i, 4) is too long, I seem to get a Run-time error '13': Type mismatch. Is there any way to rework this code so it can replace even if the string in Cells(i, 4).Value is too long?

View 2 Replies View Related

Lookup Matching Values & Return Replacement

Aug 11, 2008

Im trying to work out how to write some code to find and replace from a list.

I have key data in column P on sheet 1, and a list on sheet 2 with the same key data in column C.

Basicially, every month the data on sheet 1 changes (there are usually 100 rows of data each month) and what i want to do is, write some code to look down column P on sheet 1 and for every cell, find the corrosponding value on sheet 2 (column C). When it finds the value, copy and paste it onto sheet 3 then delete the row from sheet 2.

I hve written some code that can do the first part (copy and paste) and a second macro to do the deleting....but it is only for 1 value at a time...

View 8 Replies View Related

Write The Picture Name In Cell The Picture Will Appear

Jan 22, 2009

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.

View 10 Replies View Related

Insert Picture From File Increases File Size More Than The Picture You Inserting

Mar 17, 2009

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....?

View 9 Replies View Related

Excel 2003 :: Put Picture Into A Cell And Get Picture Name From Another Cell

Mar 23, 2014

I want to paste/show a photo in a particular cell (D2) on a worksheet (called PP). I wish to delete any photo that may already be there in D2.

The picture's name (e.g. J-145.jpg) will be found in another sheet (called MP) in cell H1.

My pictures are stored in a folder (lets call it c:pictures) and the one I want has the same name (J-145.jpg).

I've tried many macros but none work.

View 14 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved