I am new to VBA and i need to write a VBA code that should transfer or export any selected thing (whether it may be table, cell or chart ) in Excel Sheet to Powerpoint presentation. My excel Sheet consist of a table and a chart generated from this table.
View 9 RepliesI've been using a VBA code to look through my spreadsheet and find any graphs in any tab and move it to powerpoint. I have about 70 tabs with 7 graphs each.
I have is that the order of the graphs in the slidepack isn't in the same as found on each excel tab.I also tried renaming them (chart1-chart7) but problem still remains.
I am exporting from Excel into PowerPoint, and I am afraid of having a seizure after watching the export too many times. What is the best way to hide this or keep the focus on Excel?
I have tried many methods but have failed thus far. I have a modeless userform that opens up when the macro begins, but it always changes focus to PowerPoint. I have ScreenUpdating set to False.
So far my VBA will copy my range of cells in Excel and paste them into Powerpoint but I'm totally stuck as to how to resize the image from there. I've tried a bunch of different methods and I get some pretty crazy results but can't seem to punch through to a solution. What I'd like it to do, at the end of the VBA is:
Set the lock aspect ratio to false
Set the Height to 5.5"
Set the Width to 9.83"
Set the horizontal position to .08 from Top Left
Set the Vertical position to .58 from Top Left
I cannot seem to get my save as portion to work at all. I commented it out at the bottom. This is all in Excel and PPT 2007.
Here is what I have so far:
Sub Export_Excel_to_PowerPoint()
Dim ppApp As PowerPoint.Application
Dim ppSlide As PowerPoint.Slide
On Error Resume Next
Set ppApp = GetObject(, "PowerPoint.Application")
On Error GoTo 0
[Code]...
Ultimately the behavior I'm looking for with this macro is to copy a filtered range of cells from Excel and paste it as a picture into Powerpoint (up til this point I'm golden) then resize the image on the slide, save the presentation, then exit PPT.
I want to send the value of selected item in texbox , the value format is change by combobox value ..and I want the value is fill on the next column of sheet ( see attached file please)
View 2 Replies View RelatedI have a combo-box in a Multipage control. Now I want to get the combo-box populated with list in 2 columns from 2 different consecutive columns from the same worksheet (Product List). Now, Once the list gets populated, user will be selecting his choice from the list, which is then needs to get copied to another worksheet (Order Placed). Both worksheets exist in the same or one spreadsheet.
I am trying to make it work with the following code. I am able to see 2 columns but with no data getting populated. I am working in MS Excel 2007.
[Code] .....
i have a dropdown list called SN (for serial numbers). items are abc001-abc100. i would like to remove an item once ive selected it. i.e. if i have chosen abc001 on the first row, when i go to the next row and open the dropdown list, abc001 should not be there anymore. this is for me to avoid duplicate listing of the items.
View 2 Replies View RelatedExcel 2007/2010.
Hope this is fairly easy to solve. I have Screen #1 with a listbox with a CLICK event. The event populates a combobox below (with items based on listbox's selection). Listbox is NOT multi-select. Code runs fine manually, i.e., user opens screen selects from listbox, then can select from combobox.
I now what to open and make selections from another form/screen, Screen #2. I've written code to select the proper item from Screen #2's listbox but this does NOT trigger the listbox's CLICK event for me so the combobox isn't populated so I can then make that selection from Screen #1, also. I've tried setting focus to listbox first, then making selection, but that doesn't work.
QUESTION: Is there code that selects from a listbox in a way that mimics the user clicking the selected item in the listbox?
The alternatives I can think of are:
1) Change Screen #2's listbox code from CLICK to CHANGE event, but I'd rather not.
2) Move CLICK event code to sub-procedure and then call from both listbox CLICK and Screen #2 code
3) Some sendkey string like ENTER?
Would be easier to just mimic the user click, if possible.
With frm_Screen2
'Select item type from listbox
With .LBox_Items
[Code].....
Excel Userform
VB:
'enables user to click [U]highlight and select[/U] an item in ListBox1 and ListBox2 item (same row in index) is also [U]highlighted[/U] (highlighted only not selected)
Private Sub ListBox1_Click()
ListBox2.ListIndex = ListBox1.ListIndex
End Sub
Question: Is it also possible to enable a user to click to select an item in ListBox1 and ListBox2 item is also selected simultaneously (same row in index). Is there excel vb code to do this?
I think the code may be along the lines of the ListBox SelectedIndex property. What would be the Excel VB code equivilant for the ListBox SelectedIndex property, if so?
I am trying to export charts to powerpoint. I have a sheet where the user gives the list of excel files and sheet names (charts as sheet) to be imported. I run a loop to create this... but then i get a script out of range error.
Sub Chart2PPT()
Dim objPPT As Object
Dim objPrs As Object
Dim shtTemp As Worksheet
Dim chtTemp As Chart
Dim intSlide As Integer
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
Set FSO = New FileSystemObject
If FSO.FileExists("\server4meme.ppt") Then
Kill ("\server4meme.ppt")
End If
Set FSO = New FileSystemObject
If FSO.FileExists("\server4me ot.xls") Then
Kill ("\server4me ot.xls").........................
I am getting close to finishing the drop down menu capability when filling in column L in tab Transactions. However, there is a snag. When I enter part of account say "fin" (the important part here is that the part of the word should not be the beginning of the account name) - then I select an account from the menu - but it does not stay in the cell if the part of the name is the beginning of the account name - all is fine.
View 4 Replies View RelatedYou will find two attachements to this thread. One is a completed example I found pasting charts into PowerPoint Presentation and the other is my example of what I would like done. Difference here is that I am not using charts, instead I am using selected ranges to paste in a PowerPoint Presentation.
Instead of pasting charts to Excel, I would like to make each colored range a slide in the PowerPoint (Please see attachment).
So by click on the command button "Create PowerPoint Presentation", I would like to have PowerPoint open and the two colored ranges should be in the PowerPoint Presentation as Slide 1 and Slide2.
I have done some research on this topic and found information, but I have not clue as how to do it.
I don't know if this is possible, but is there a way to have a macro in Excel copy and paste charts into a Powerpoint file? I've got a program that creates all the material needed for a Powerpoint slide deck and I want to automate the copy/paste work.
View 2 Replies View RelatedI have this VBA code which I use for transferring data from my data sheet to slides in PowerPoint - it works fine.
However in PowerPoint I'm currently forced to transfer data to "text-objects" which is a bit of a drag because I'm used to working in a table in Powerpoint when organizing data.
Therefore my question is how to edit my VBA code so I can transfer data to a table in PowerPoint instead of an object.
Here's the VBA code:
Code:
Sub TDPTest()
Dim shtStudent As Worksheet
Dim strMedarbejder As String
[Code].....
I borrowed the macro below from this forum. My formulas in the sheets I'm copying refer to other sheets that I'm not saving. can someone tell me how to change it so that it copies values only to the new workbook as I'm only saving it for records purposes and some cells are saved with #REF errors.
I'm guessing there's a spot where I should type .Value ? Copy.Value doesn't work.
I have a list of 20 cities in K1:20 and they can be selected from a drop down menu in column A2:A22. I want then to randomly pick 6 out of 20 and these 6 cities must to appear in a line A1, B1, C1, D1, F1, and G1
On cell A1 I have used the
IF ( A2=K1,K1, IF(A3=K1,K1...................A22=K1,K1,IF(A2=K2,K2......A22=K3,K3)
It seem to be an endless formula is there another way to make it easy ???
I am struggling with work-schedule worksheet and I want to do this:
In my attached sample worksheet are cells coresponding to a day of the month (monday to sunday, and so on...), and cell for job positions. Each day I must assign 5 employees to a different job position (job positions are on drop down lists).
When I select first job (on specific day), I want a pop-up window where would show what job I have allready selected and what job hasn't been selected so far.
How can I do that, is It possible in VBA coding, maybe with Listbox or CheckedListbox.
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.
View 5 Replies View RelatedI can add an item from one list box to another using the following...
[Code].....
But I want to be able to remove the item from the listbox by clicking it. Tried this but doesn't work!
[Code] ......
Sorry, should be a simple one...
I can add an item from one list box to another using the following...
I have a couple of listboxes and use the mouseup event to do stuff with the row that's clicked.
When a new listbox is clicked I'd like to remove the highlighting or selection from the last one.
I thought this would do it
".Selected(x)= true" where x would be that listbox's list index. But no.
Is there another way?
is there any way to get the value for the selected item from the combo box in vba code?
View 5 Replies View RelatedSoftware: Excel 2010, Windows 7
What is the VBA code for inserting text in all column B-cells of multiple selected rows?
I am creating a worksheet with a table containing various data related to orders of various materials (this is more or less data gathering from an older, paper-based 'system'). This table spans, columnwise, from A to D and expands downwards as more orders are added. The information in each column is: A=order number, B=type of material and C=material specs. and D=additional comments.
I've set it up so that the only thing I really have to do is to insert the type of material in the cells of column B, and the rest will sort itself out. Instead of having to insert a new row for each new entry and manually typing in the name of the material (these entries are often done in the midst of already existing data), I created several similar, macroed buttons for the different types of materials we use. These macros work by selecting the row of the currently active cell, inserting a new row and then add the name of the material in the column B-cell of this new row. What I am having trouble doing though, is to get the text-entry to work for a selection of multiple cells.
As an example, lets say that I would like to add 5 orders of "Grade A Steel" in the middle of the table - in the row above row 8. With the macro I currently have I can select cell B5, click the macro, and a new row will be inserted with "Grade A Steel" in column B of this new row. This action could be performed 5 times over, but would be easier if I could just mark a range of 5 cells, say B8:B12, click the macro and get the text/data inserted the column B-cells of all 5 of the new rows. So far I've been able to create a macro that inserts multiple new rows, but I've only been successful in filling the column B-cell in the first row leaving the 4 below empty.
The below is causing me an issue as it is setting the ws value to equal nothing instead of sheet1 or sheet2 etc. I have my dimensions set above and there are no spelling mistakes.
It falls down on the
VB : Set LastRow = ws.Range("a65536").End(xlUp)
line but this seems to happen because ws is set to nothing.
VB:
For iramp2 = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(iramp2) Then
Set ws = ActiveWorkbook.Sheets("Sheet" & iramp2)
End If
[Code] .....
I am a softball coach and I want to create a fielding roster for my team. I have all the players names in column A (A4:A14). I have positions listed in column L (L4:L15) as follows: P, C, 1B, 2B, SS, 3B, LF, LC, CF, RC, RF, X. Cell range B4:H14 (7 innings) is where I need to have drop downs, but once I select a certain positions for one player in inning 1, for ex., I want it to not be available for the next player in the same inning.
View 6 Replies View Relatedhow I can have the selected item in a dropdownlist also to be shown in another cell? Typing the cell number of the dropdownlist in another cell (f.e. ="dropdownlist cell number)" doesn't seem to do it.
View 2 Replies View RelatedI've created and coded a vba userform that creates purchase orders for my projects. The user begins by selecting the project code from the combobox (the project code is a unique identifier of each project). Once the purchase order is created, the information is logged in a separate sheet called "POLog" and the userform is cleared. The project code is saved in the first column of the "POLog".
My problem is that when I have more than one purchase order to create for the same project (sometimes I have 20 or 30), the combobox starts out empty and I have to manually select the project code from the combobox. Is there a way to allow the userform to recall the last project code that was used? Maybe recalling it from the last row in the "POLog" sheet?
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.
Code for my listbox populate:
[Code].....
I plan to place a drop down list (combo box) in a WS where I upon selection of one item from that list will move me to the place in the same WS where the item selected is to be found. Hyperlinks are a theory, but the WS is protected and will stay protected. A drop down is preferred.
I haven't worked with this topics for quite some time and might have forgotten some basics.