Inserted A Listbox And Based On The Value Selected A Picture Should Be Poped
Jul 12, 2009
I have inserted a listbox and based on the value selected a picture should be poped. I have searched the forum and got the code below. But it is throwing an error message "object required"
Private Sub ListBox1_Change()
If ListBox1.Value = "x" Then
Pictures("Picture 1").Visible = True
Else
Pictures("Picture 1").Visible = False
End If
End Sub
Then i modified it to
Sub ListBox1_Change()
If listbox1.Value = "1" Then
activesheets.Shapes("Picture 1").Visible = True
Else
activesheets.Shapes("Picture 1").Visible = False
End If
End Sub
Code: Sub Insertwinds1() ppath = "winds.webimage.url" With ActiveSheet.pictures.insert(ppath) .left = Range("A2").left .top = Range("A2").top .ShapeRange.PictureFormat.CropRight = 70 .ShapeRange.PictureFormat.Cropleft = 130 .ShapeRange.PictureFormat.CropTop = 300 .ShapeRange.PictureFormat.CropBottom = 90 End With End Sub
This takes the image from the web (which is fairly large), moves it to Cell A2, and then Crops out the extra space I don't need showing. When this Macro is finished, due to the large Crop size, the image is in the center of the screen and nowwhere near the A2 cell. Is there a simple addition I can add to this code to move it back to a specific cell (a2) after it's been cropped? or move it via placement on the sheet (13, 13, 600, 600)? My old code I was using for this was:
Code: Dim MYPICTURE As Shape Set MYPICTURE = Activesheet.shapes.addshape(msoshaperectange, 13, 13, 600, 600) MyPICTURE.fill.userpicture "winds.webimage.url" End Sub
This one inserted the image, placed it in the specific spot... but I can't get that one to crop it, which is why I started over with teh first code.
I have the same problem as Paul C in the following post:
(Pictures disappearing) "Hi not a VBA problem, but when i insert pictures or logos into my workbook they disappear, i can insert a picture close the workbook but when i re-open it the picture has gone, i have to click on where it should be to get the border to appear, the move it to get it to appear.
I have tried inserting BPMS, JPGS, GIFS, but i have the same problem with them all, I have used the bring forward command but still have the same problem, I have even tried re-installing Office 2003 and installing all the latest updates but still get the same problem, any ideas?"
I have tried:
- Tools > Options > View > Objects > Show All - Changing macro security level - disabling macro security in my antivirus
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.
I am using this code to hide or unhide rows of text on another sheet:
VB: Sub ProcessSheet1ChangeOnCellJ7(ByVal Target As Range)
Dim sAddress As String Dim sValue As String
'Get the address of the cell that changed without '$' signs sAddress = Target.Address(False, False)
[Code]....
When the "Not Pursuing" list box option is selected (in cell "J7" or "J8" in Sheet 1) I need to add (or over-write) "Not Pursuing" to the range of cells in column "B" (in the "Tasks" sheet), but only for that particular Goal, meaning a limited range of cells in column "B". If the "Pursuing - Show All Tasks" option is selected for a Goal then these same cells need to be blank so that the appropriate person can enter their name into the cell.
The purpose for adding "Not Pursuing" automatically to these yellow highlighted cells is that it will facilitate filtering of tasks by individual in the "Tasks" sheet..
Again I have tried several times to upload a sample file and am unable to, which I know makes it more difficult to solve. (Is there some common mistake people make? I know it's an allowed format and is very small in file size....)
Code solution can be entered directly beneath:
VB: If Target.Value = "Not Pursuing" Then ActiveWorkbook.Sheets("Tasks").Rows("29:29").EntireRow.Hidden = False ActiveWorkbook.Sheets("Tasks").Rows("30:48").EntireRow.Hidden = True
I have a number of pictures on sheet 1 that display names from cells in sheet 2
E.g. Cell B1 in Sheet 2 has the value "Bob Jones" Cell B2 in Sheet 2 has the value "Ian Jones"
In sheet 1 Picture1 has the formula =Sheet2!$B$1 so that the picture displays "Bob Jones" Picture2 has the formula =Sheet2!$B$2 so that the picture displays "Ian Jones"
I have about 30 pictures displaying names in this way, but I want the name of the chosen picture to also appear in cell A1.
E.g. On sheet 1 user clicks on Picture 1 (Bob Jones), the name "Bob Jones" appeas in Cell A1 User clicks on Picture 2 (Ian Jones), the name "Ian Jones" appeas in Cell A1
How I can get a picture to pop up when a certain answer is selected in a certain cell, or when a certain answer is keyed in to a cell. Another portion to this question is that we know how to get a message to pop up in a dialog box when a certain piece of information is typed in to a box, but we don't know how to get graphics into those dialog boxes.
I have a group box with 5 little round option buttons in, what i wanna do is connect the options to an image and when an option is selected the image that corresponds to it shows, then when a different option is picked another image relating to that option shows.
List 1 (TV Brand) Sony LG Samsung Depended List 2 (Models) Sony LG Samsung EX420 55EB9600 PL43E450A1FXZP EX430 77EC9800 PL43E490B4FXZP EX550 55EA8800 PL43E400U1FXZP EX520 KN55S9C UN32EH5300FXZP EX645 55EA9800 PL64E8000GFXZP
I'm using two Listboxes (Form Control) with multiple selection options namely Listbox 1 (Brand) & Listbox 2 (Models). I want listbox 2 input range to be depended on selection made on Listbox 1 (Brand). For example, if user selects Sony then box2 should show only Sony's models and if user selects Sony & LG, box2 should show models for both Sony & LG.
I have a spreadsheet with names of students, year groups, subjects and others. My VBA code will analyse student's results, but before I get there I would like the user to be able to select groups of students using listboxes.
Now I have a tonne of variables that I won't bore you with but the main thing I would like to do is to scan through each cell in a range on my spreadsheet and determine if the value of that cell is equal to a selected option in the listbox. This will let me, for example, filter by only Year 10 students, or select to display only Year 9 and 11 students.
I already have the code to scan through each cell:
VB: 'Run through each student and check they match the criteria For N = 1 To StudentList.ListCount
'Split the first and second names StudentName = Split(StudentList.List(N - 1))
[Code] .....
Essentially, I would like to take the cell "A" & N2 and check to see if it matches one of the selected options in a listbox called "YearList"
I have 1 macro that i would like to be activated as soon as i select any item from a form control listbox (doesn't matter which item). i am not using an active X control but rather a form control.
I have a (MultiSelect) ListBox1 that is populated with Customer Names for the user to select from. I want the user to be able to hit the CommandButton1 adjacent to the ListBox1, and the selected Customers copy into/get added to the ListBox2.
I have the following code, adapted from other code, but it is not working:
I have a userform running with a number of text boxes, as well as one listbox. To extract a value from a text box I obviously write something = me.textbox.value. How do I do the same for a listbox (single item) as me.listbox.value produces an error!
I have a form control listbox, which is populated with filenames from a specific directory. When the user selects an entry I need that text to appear in a cell in the workbook. This is then concatenated with a folder path to open the file to copy and paste some data out into another workbook. I have tried...
Code: Sub GetWrbkbkname() Dim strlist As String strlist = Sheet1.Listbox18.Text Sheet1.Cells(1, 1) = strlist End Sub
But receive the method or data member not found error. The cell link property just returns the position in the list! I need the text!!
The only workound I could think of was populating a space in the SS with the directory contents and using the cell link value in a choose function to return the selected workbook name.
I have a listbox on a userform, with multiselect set to 2 (Multiselect extended). When the listbox is displayed for the first time, no elements are selected. At a certain point in this application, I want to get back to the original state and deselect all items.
I do that with the statement Listbox1.listindex=-1. I hope that is the right thing to do. However, the elements that originally were selected are still blue-coloured, like they became when the user selected them. How do I do to make them look deselected?
It also seems to me that the array Listbox1.selected(x) still holds the value "true" for elements that were selected. Is it so that in addition to say listbox1.listindex=-1, you have to loop through the elements in listbox1 and set all of them to false?
i am making a phone company site on excel, with vba, for my college project, i need to know how to make it so wen i change the selected phone from the listbox, 2 show the image of the phone in the image box, from my files.
I have a workbook with roughly 25 sheets, each sheet represents a customer. Each month, I want to be able to run a macro in the workbook that will produce a UserForm containing a Listbox of each unhidden customer (worksheet) in the workbook. After I select all of some of the customers, hit a "process" button which will run a macro on each of the selected customers from the UserForm one worksheet at a time.
I currently have code written to produce the UserForm and populate the list, but I am uncertain how to write the code for the "process" button to run the macro on each selected customers one at a time. All I know how to do is have excel select all the chosen customer worksheets all at once.
I have a listbox that is automatically filled with data in two columns through a lookup function from a worksheet. That works fine. But now I want to fill the third column with data through a text box, but only in the rows I have selected in the listbox.
My code so far is:
[Code] ....
The number I want to insert into the listbox appears, but not in column 3 in the selected row(s).
It seems that when reloading a listbox (in my case in ppt, but triggered from vba in excel) the ppt application (office 2010) was not highlighting the selected row in the listbox, and was infact also losing the selected row information when the item lost focus.
indication in excel that new data is to be displayed triggers macro in ppt to fetch data and update:- 1. select the userform and listbox 2. fetch the data from excel worksheet range into a local array 3. save locally the current selected index in the listbox 4. reload the data into the listbox and adjust column widths 5. relocate the old selected item, and set the new selected index
Summary of key Code lines which did not work:
[Code] .....
Code which worked fine:
[Code] .....
So in summary, if you get problems with listbox selected items not being highlighted, double check you are not re-defining column widths after loading the data into the list.....
I have a userform that search for a value in column A, it displays the results in the listbox. Example: Search for value "111" and it brings me back the following results back in the listbox "111 David 35". So this means 3 columns matching data is returned.
I want the following to happen if I double click on the item in the listbox it needs to update the value selected in the worksheet eg. strikethrough the row on the sheet to show item has been selected/done.
I am trying to take selected items from a listbox and put the selected items into an array. Basically I am trying to put the selected items into a variable that I can pass to other modules. I am close but something is off. I can't tell if it's the variable declaration or the code.
I get Run Time error 91. Object variable or with block variable not set
I've got a listbox (ListBox1) and it lists 5 files. names are One, Two, Three, Four, Five (all .xls) and they're saved in C:/MyFolder
What i want to do, when a user clicks a button, for a code to only open the files that are selected. So for example, the user selects Three.xls and Five.xls - the code would need to ignore the others and open the selected files.
How can I adapt the following code to only show Columns; A, B, E, F and J from Sheet(3) into a Listbox called lbx_LiveAllocations?
As it stands, this code is only adding Column A. My only alternative has been to add all columns on the worksheet to the listbox, however there's a lot of unneeded information between.
Code:
Dim LR As Long Dim ctrl As Object Dim i As Long Dim dic As Object Dim arr As Variant
