VBA Code For Data In PowerPoint Table Not Objects?
Jun 29, 2012
I 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
I have created a table in Excel 2010 (pls see attached table named post.xlsx).
Then copied the above table into PowerPoint 2010, using "paste link" (I tried to attach the PowerPoint file but the system says "invalid file type" and I cannot attach it).
Question:
I have received income data for another month - the new month is 13 and the corresponding new income is 100. I typed 13 and 100 into the Excel table post.xlsx and thus extended the table by another column.
Then I went back to PowerPoint slide, then right clicked on the table there, then clicked "update link".
Specific Question:
The newly-typed column in Excel table is not get updated in PowerPoint table.
I have a chart and a data table (please see attached file named "delete_1.xls).
I need to present these 2 items in a single slide of PowerPoint.
I have done like this.
-First copied the chart from Excel. -Then pasted it in PowerPoint using "Paste special". -Then clicked "picture (windows metafile)" this is to reduce memory consumption
Then repeated the above steps for the excel table too.
The PowerPoint slide that I got cannot be attached as system doesn't allow me.
Question: I wanted to a give a paper copy of the PowerPoint slide to my Director who needs a PowerPoint slide and not an Excel chart. But in the slide, the numbers of the table look much juggled and as if the numbers are too closely typed.
I tried with various different fonts in Excel and then copy and pasted in PowerPoint but the problem persists.
What things I should do in Excel table so that cell values are clear in the Table presented in PowerPoint ?
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.
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.
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.
So I'm creating a grid worksheet for engineering calculations and I have a couple questions about the best way to do it. I've been messing with excel for my calcs for about a decade now, and I every once in a while I try and improve them.
First: I will have several input areas that will either be colored text or shaded background (either works for me). I don't want these 'input required' objects to print as color, just black. But I want my logo at the sheet top to print as color. I've only found ways to not print any color. Can I print the logo as color and the 'input required' stuff as black?
Second: When I do calcs by hand, I write them out on 10x10 grid paper. Each 10x10 grid is one inch. In the past I've created this grid out of the cells, which works. I frequently need to change formulas around though, and each time I do this, I end up needing to mess with the grid cells also. Is there a way to create the grid and have it in the background so it doesn't need to be adjusted each time I change formulas? I wan't the grids to print, and also want to see them on the screen, as I sometimes draw simple objects along with the formulas.
In the attachment you will see an example of what I am trying to accomplish. What I am trying to do is find VBA code that is either specific to this worksheet or in a macro. When the sheet is opened I enter a date in B2. I then enter data into A7, B7, and C7. What I would like to happen is when the data is entered into A7, B7, and C7 the sheet goes and finds the same date that I entered in B2 and copies that data from A7, B7, and C7 into F7, G7, and H7.
I read and used the Find_Range custom function provided by Aaron Blood. It's a great function, for which I have many uses, but, as I currently have it set up in conjunction with a userform, it doesn't work fully until I use it twice in a row. The first time it's used to return more than one row, it seems to stop short and only display a few of the appropriate rows. Not until it's used twice in a row does it display all the rows containing that product. What do I need to do to have it work fully each time?
I have a large worksheet from which I want to extract only the rows which contain a certain product, selected by a combobox, and paste the rows on another worksheet. I have a userform set up with an oversized listbox which displays the contents of the data worksheet. Below that I have a 'products' combobox, and a button to initiate the Find_Range. Another oversized listbox displays the results.
Here's the function contained in a module:
Function Find_Range(Find_Item As Variant, _ Search_Range As Range, _ Optional LookIn As XlFindLookIn = xlValues, _ Optional LookAt As XlLookAt = xlPart, _ Optional MatchCase As Boolean = False) As Range Dim c As Range, FirstAddress As String With Search_Range Set c = . Find( _ What:=Find_Item, _ LookIn:=LookIn, _ LookAt:=LookAt, _ SearchOrder:=xlByRows, _ SearchDirection:=xlNext, _ MatchCase:=MatchCase, _ SearchFormat:=False) 'Delete this term for XL2000 and earlier If Not c Is Nothing Then Set Find_Range = c FirstAddress = c.Address................................
The problem I am having is that the data I am transferring is going to top of column cell first and then when I run the macro again it skips down to the next empty cell in the column...what I want it to do is paste the data into the next empty cell...
Here is the code I am using Code: Private Sub CommandButton1_Click() Dim oExcel As Excel.Application Dim oWB As Excel.Workbook Dim oWS As Excel.Worksheet Set oExcel = New Excel.Application oExcel.Visible = True '
I have a powerpoint presentation which has a bunch of Excel charts embedded as Microsoft Office Graphic Objects, but I don't have access to the source data (plus the links are broken).
how to get the underlying data. I vaguely recall once doing this with some vba that I had found somewhere the net, but I don't have the code anymore.
I have some code that works within Excel however:
Code: Sub GetChartValues() ' this macro will recover the data from a disconnected Microsoft Graphic Object (such as we used to paste ' into PowerPoint). You will need to insert a Worksheet entitled "ChartData" to store the values. Dim NumberOfRows As Integer
If I have a simple spreadsheet with Name, Class, and date in Columns A, B, and C. Labeled as NAME , CLASS, and DATE acccordingly is there a way to merge that data onto a certificate in powerpoint so the result is a slide of each student?
I can do this in word easily and perhaps the easy answer is to just convert the certficate slide to word and go from there?
A web query I am trying to use to bring an online data table into my worksheet is broken. Now, instead of returning the data table nicely into my worksheet, it imports the code of the webpage, instead, and turns my worksheet into a mess.
The query used to work but there was recently an "upgrade" to the program that populates the web table and the query no longer works and just returns the code for the page, instead. I can see the html code for the table in all of the code it returns but I really need the table to import cleanly into excel.
I can't talk to the people who changed the web program.
I have an Excel worksheet that contains many data structures, each one consisting of an array of cells, say a3:z13, a14:z24, a15:z25 etc. I can code a custom object to easily access the data in the structure but only after I load the structure into the custom object in memory. What I'm looking for is a way to assign the structure to a custom object for accessing without having to load the custom object. Again I maybe headed in the wrong direction, it may be easier just to hard code it.
The idea is that I start out with a number of XML files, which I'm trying to manipulate to calculate descriptives and make graphs of in Excel.
So I've made a large "script" in VBA to accomplish these goals, which works, but I'm trying to optimize the code step by step.The overall process that I want to achieve, consists of :
1) Open the XML in Excel as an XML Table
2) Use the filters in the top row of that XML Table to select the data that I want to use
3) The resulting selection consists of data in 6 columns of which I only wish to select column 2, 5 and 6
4) I only wish to select the data in the table of column 2, 5 and 6 (without the header and only the cells in the table) and copy
5) Last step is to paste this data in Sheet "Calculations"
The step I'm working on right now, is step 3-4. My current code is: [Code] ......
This does the job, but I'm trying to optimize it, since I'm handling tons of XML files and I'm performing this copy function a number of times per XML file.
This copies the data of all the columns in the table for the cases that meet the selected criteria, but I'd like to make an even stricter selection of only column 2, 5 and 6 to not waste space and processing power.
So I tried to select the data from the 3 columns and combine them with the Union function, to copy them as one array to the sheet Calculations.
Optimized a similar VBA code to: [Code] ........
But I'm having issues with getting the right selection method and when I run the macro, I get the error message that the Copy and Paste area aren't the same size.
I tried to alter my initial code to something in the line of : [Code] ..........
But I get error messages 1004 : Method 'Range' of Object '_Global' failed.
I've also tried [Code] ........
But this seems to select the whole column, including the header and tons of rows even after the table ended.
I am trying to extract the data values from the references Bundesbank page and get them into a worksheet so I can manipulate from there. What I have is below.
I was trying to use the VBA code to generate a data table:
Private Sub createDataTable(WS As Worksheet, initialRow As Integer, numCol As Integer, numRows As Integer) Dim initialCell As Range 'specify the upper left cell Dim RefCell As Range 'the reference cell on the caculator sheet
'activate source sheet ActiveWorkbook.Sheets("Calculator").Activate Set RefCell = ActiveSheet.Cells(2, 3) WS.Activate Set initialCell = ActiveSheet.Cells(initialRow, 1) initialCell.offset(numRows, numCol).Select Selection.Table ColumnInput:=RefCell 'the calculation should be automatic, if not, then calculate WS.Calculate End Sub
and it kept giving me an input celll not valid error on this line: Selection.Table ColumnInput:=RefCell the thing is, I have defined RefCell as a range object, so it should be OK rite?
I have worksheet with data . Everytime number of rows with some data in it changes . Like sometime there are 100 rows with data or other tome it may be 57 only. I want to write VB code to select only those rows which have data. Thereafter I will use Pivot Table code to get required information. I know VB code to generate Pivot Code. But what happens is that if any blank row gets selected in data range for Pivot Tables, thereafter grouping by "Month" is not done.
go through attached file? In Module 1 ( which contains macro ) instead of R1C1:R8C4 , I want range with data only.
The "Sum" sheet can change its number of rows. The pivot table is based on it. I'm having trouble with the SourceData portion of the code in my macro ....
I need to export serveral charts to several slides within PowerPoint from Excel Using VBA. I use 2002 versions. I added chartobjects (2) under 1 but not sure if that is the correct placement to start adding more charts to slides.
Private Sub CommandButton1_Click() 'Sub PowerPointOLEAutomation() Dim ppt As Object, pres As Object 'Create a Microsoft PowerPoint session Set ppt = CreateObject("powerpoint.application") 'Copy the chart on the Chart Labels Demo sheet Worksheets("sw dr").ChartObjects(1).Copy 'Worksheets("sw dr&ot").ChartObjects(2).Copy 'Create a new document in Microsoft PowerPoint Set pres = ppt.Presentations.Add.........................
So I have lets say 3 workbooks and on each first tab of that worbook there is a (pivot)graph. Now what I would want is VBA code which opens these excel workbooks, then copy the chart and paste it into a powerpoint presentation each chart on a new powerpoint slide. So it can be rather basic. A loop which goes thru excel sheets and always takes the chart on the first tab. I see a lot of different code but not what I really can use for powerpoint thru excel vba.
I have some VBA code that allows the user to open a linked powerpoint presentation from an Excel workbook. It works well but it does not ask the the user to update links so if the Excel book has changed the powerpoint stays the same. I am very new to VBA so I tend to copy things that work but don't always know why! Anyone out there know how to get it to update links automatically or at least ask the user to do so? Here is the code:
