I have a worksheets (named Graphs) that contains 12 pie charts, 8 column charts and 4 line charts. I would like to create some VBA code to loop through all these 24 embedded charts and modify only the pie charts. I'm OK with the code to do the modification (which is to set their plot area size and also to delete the title), however, I have no idea how to do the initial loop to select only the pie charts. I'm sure there's a much better way then hardcoding in each of their chart names.
I have following code which is not behaving the way I want.
[Code] ....
The problem is the last statement, a chart which gets created in an iteration does not "move" to a new sheet but rather same sheet. So end result is a sheet with chart of the last iteration.
How to get this code to create new charts in new sheet and not the same sheet.
I'm trying to go through a workbook and, based on some user inputs, hide certain sheets and charts (these charts are their own tab, i.e. a chart object). Here's a sample code I wrote for a dummy workbook I have. Unfortunately it doesn't work, I think because the loops are nested. However if I can figure out how to fix this code I can easily adapt it to my other real problem.
When i add a month coloumn,Sparklines and Average coloumn should get updated automaticaly.Now this is not happening even if the data is in table format.I also want the graphs to be automaticaly updated.
I am trying to put some charts into a report that is pivot table based. I have some code that will work if the pivot tables stay stagnic but the users may change the tables around so that could be an issue of new data. I have the following code where I changed the source to the pivot table name (general name because of numberous report possibilites). I have taken out the other charts because they are just a variation of the chart 1. I am crashing on the line with the * on it.
Sub UWTierChart() Dim oCell As Range Dim oChart As Chart Set ws_data = ActiveSheet 'Chart 1 Sheets(wsPT).Select Range("B21").Select
The jist of the problem is that employees are paid their normal wage up untill 37.5 hours of work. From 37.5 to 40 hours of work they are paid 1.5 times their wage. Any hours over 40 are paid at 2 times the regular wage.
So i need a formula that can work out their total pay. Im not sure what i could put in a dummy document to help you since it would just be one cell for their hourly wage, one for their hours worked and then one for the calculation. so you can reference any cell as an example and assume £6 as hourly rate
Working on automating a data update process for my department (well, for the Italian speaking analysts anyway). I'm trying to import data from an embedded PDF to my Excel 2007 worksheet - I only need the data on the PDF, but if the whole screen can be scrapped I can clean it up in my code.
My "Drawing" is embedded on Sheet1, later on in Sheet12 I click a button that'll send an automatic email to a user. I want to attach the embedded PDF onto this email if it is at all possible??
Code: Dim Drawing As Object After I've declared my variables I've tried setting the variable "Drawing" to the object, this is where I'm encountering my errors mainly "Type Mismatch" or Object Variable not set...
Code: Sheets("Menu").Visible = True Drawing = Sheet1.Shapes.range(Array("Drawing")) Selection.Verb Verb:=xlPrimary Sheets("Menu").Visible = False At the bottom of the code, this is where i pull in the object
I need to create a formula that will calculate a total if someone checks a certain box. (Each check box is associated with a cost. When people check the correct costs, the bottom should total the costs checked.)
I have a worksheet with Labels (from the "Control" Toolbox) embedded and I want to read and/or set the BackColor value in VBA. I can't figure out how to accomplish this when they're embedded on a sheet like this.
I'm using Excel 2003 and have a spreadsheet that I want to distribute to a handful of people around the globe.
I want some cells in the page to link to various PDF files which I need to distribute with the worksheet.
I can embed the PDF files no problem, but I need each link to the embedded objects to take up no more vertical space than one row of text (without an Icon) - ie I need to be able to access the object through a "hyperlink style" item.
I can't figure out how to do this, as the hyperlink function does not seem to permit linking to embedded objects.
I received an Excel spreadsheet that has contact info (name, address, phone, email, etc) but the email isn't visable unless I hover over their first name (a link) and I can see it in there. If I click the first name link, it opens a new Outlook email message. (Cool, but not what I need...)
When I copied the whole spreadsheet and pasted it as a tab into an existing Excel document of my own, the email addresses are no longer there, it now shows the path to where my original document is stored. Where did the email part go? how do I extract the emails out? Ideally I'd like to put them in a new column next to their name...sorted in my original document or in the tab...either one.
I am trying to create a macro to add to a button that will open an embedded document (word, PPT, and excel).
I recorded the macro and it works fine the first time I try to test it but after it tells me that there is an error...
I'm not exactly sure what to do. Unfortunately, I could not find what I needed on youtube
Error: It talks about the object being out of range and allows me to debug... the code that is in the developer is:
Sub Macro1() ' ' Macro1 Macro ' ' Sheets("Sheet2").Select Windows("Worksheet in Book1").Visible = True Selection.Verb Verb:=xlPrimary ActiveWindow.Close Sheets("Sheet1").Select End Sub
The Windows line is what it tells me to fix.. from there I am lost... Is it because I am trying to do a double clicking function?
I am trying to wrap up a project. The project consists of taking the input values from a userform and entering them into various Word documents and Excel workbooks. The procedure is run from Word. I have no issue completing this part.
However, there are a few Word documents that have an Excel worksheet embedded into them. How can I manipulate these worksheets using VBA? I have attached an example for your reference.
I have found out how to get into edit mode, but I still do not know how to actually edit the worksheet.
Setup: I have a ppt presentation with several MS excel worksheet objects embedded.
Goal: I am trying to write a macro in ppt which opens an embedded object, then once it is open applies an existing excel macro that is in my personal excel book.
The code from ppt "record a macro" stops at ActiveWindow.Selection.SlideRange.Shapes("Object 8").Select ActiveWindow.Selection.ShapeRange.OLEFormat.DoVerb Index:=1
How can i let it know that the active window is an excel sheet? and if i get there, can i run a macro once in?
This will take a mixture of at least HLOOKUP and Average
I have a table of 2 columns; 1 column is dates from Jan. 1st to Dec 31st; 2nd column is inches of rain on each day. Several are 0 inches but I am needing to take the the average of each month of only the days that have greater than 0 inches of rain.
Getting the average of each month is easy but canceling out the 0 inch days is throwing me off right now.
I tried recording a macro (Absolutely nothing is recorded as far as the ticking and unticking goes) and searched for code but came up empty. What VBA code would I use to untick such a TickBox (TickBox1, Sheet22)? I'd conversely also like to know what code to use to Re-tick it.
I want to copy an embedded object and and then paste it on the last used cell. However everytime i do this an error occurs.
Sub last_cell() Sheets(" Analysis").Select ActiveSheet.Shapes("Object 10").Select Selection.Copy Selection.SpecialCells(xlCellTypeLastCell).Select ActiveSheet.Paste End Sub
The error occurs in this line ( Selection.SpecialCells(xlCellTypeLastCell).Select ). Best Regards Faisal
I have a workbook with two worksheets. On the second worksheet I have placed a chart, in which several shapes (text boxes) have been added manually. With the help of a TickBox in a UserForm on the first worksheet one can hide / unhide one of those shapes (on the second worksheet). By using the Macro recorder I finally came to this code fragment:
Obviously another part of the code is used to make the shape visible again. roblem: The screen flickers. And I want to be able to do this without flickering. Searching Ozgrid revealed that the use of "Activate" makes the screen flicker. Hence, my question: How can I hide / unhide a shape (textbox) in a chart on another worksheet without of using "activate"? r: Any other way to hide / unhide a shape (textbox) in a chart on another worksheet without flicker?
I am working on a project. As part of project, emails were sent out to an experimental group for a cost survey. I have to combine data and do analysis now. I am given two excel spreadsheets (sample of both attached).
In sheet 1, column B contains email name. For instance, first email name (Row A2) is ‘96 '07 Bustello Third email name (Row A4) is 90-pt Panda Express '10
Based on this email name, I need to create a new column that contains only company name i.e Bustello against row A2, Panda Express against Row A4 and so on.
I thought of using ‘Text to Column’ function in the beginning. However, since there is no common character in all email names and no fixed width at which company names are embedded in email name I could not use it.
For now, I am doing it manually. I have 10,000 email names and it is becoming hard to do it manually.
Although I am given another sheet (sheet 2 of sample), which has two columns: Company number and Company Name, there is no common variable that I can use to do VLOOK UP therefore; I am not sure how to make use of that sheet.
I have a cell which has multiple references including some text and a date. When they are all added together the date comes up with the 6 numbers not a date.
[Code]......
The TR!A11 is the date. Is there code to put in front of it to make it format as a date??
Is it possible to fill an embedded pdf (AcroPDF) fields with data from excel?
For example: I have an embedded pdf file, it has a field name "NAMEFIELD", on the click of a commandbutton, I would like Sheets("Sheet1").Range("A1").Value to be input into the PDF file text field "NAMEFIELD".
