Chart Alignment Code Multiple PCs
Jun 28, 2007
These charts are generated via a macro and have to be aligned using VBA.
The charts look fine on my screen bu their alignments and position are messed up when another person uses it on another computer.
This is the code i am using to align the charts
chartwidth = 300
chartheight = 200
With ActiveSheet.Shapes("Chart 1")
.Width = chartwidth * 2 + 10
.Height = chartheight
End With
With ActiveSheet.Shapes("Chart 2")
.Width = chartwidth
.Height = chartheight
End With
With ActiveSheet.Shapes("Chart 3")
.Width = chartwidth
.Height = chartheight
End With
ActiveSheet.Shapes("Chart 1").IncrementLeft -128.25
ActiveSheet.Shapes("Chart 1").IncrementTop -75
ActiveSheet.Shapes("Chart 2").IncrementLeft 182.25
ActiveSheet.Shapes("Chart 2").IncrementTop 139.5
ActiveSheet.Shapes("Chart 3").IncrementLeft -126.75
ActiveSheet.Shapes("Chart 3").IncrementTop 138
View 3 Replies
ADVERTISEMENT
Dec 5, 2012
I have 5 columns of data where each column of data has two number in it separate by a space where the headers for each column is c1, c2, c3, c4 and c5. for example
c1 c2 c3 c4 c5 c6 c7 etc
1 1 1 2 2 2 2 1 1 1
3 3 3 4 4 4 4 3 3 3
etc
where each of these number pairs is under a separate column. The preview option for this forum editor is showing quite a difference between intended presentation and actual..
What I am looking to do is for each line item is to put the content of each row into a single cell with vertical alignment of the pairs of numbers. for example
c6
1 1
1 2
2 2
2 1
1 1
3 3
3 4
4 4
4 3
3 3
where each group of five pairs is in a single cell.
I am looking to do this in as automated an approach as possible. I dont want to have to ctrl-enter for example 4 times for each cell in c6 for 1000 different line items..
View 5 Replies
View Related
Sep 17, 2007
I have the following ...
.Offset(3, 0).Value = "For " & P & " numbers there are " & Format(tly, "###,###,##0") & " x different values of " & cmb & " numbers. "
... which includes figures upto and including millions.
The thing is that the above code ONLY produces figures that are relevent.
View 9 Replies
View Related
Jan 9, 2010
I have 5 columns of numerical data from Column L to P.
I use the SumIF function in column S to add all the negative numbers, if any.
I then use the IF function in Column R to add the loan # wherever negative values are present.
Here is a screenshot of what it looks like after I'm done with the above:
All I need to do is align this data and move it to the bottom, near the total. This is to make it look presentable and i'll know the defaulting loans at a glance.
I can move it manually, but there are over 50,000 loans and its time consuming.
So, I need a macro to do it, but I'm not sure how to code it.
Below is the screenshot of what it should look like:
Its basically just eliminating the blank cells. Can someone please help me out with the macro code for it?
here is the code i'm using for the SumIf.
Sub addadvances()
Do Until IsEmpty(ActiveCell.Offset(0, -3)) And IsEmpty(ActiveCell.Offset(1, -3))
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUMIF(RC[-7]:RC[-3],""
View 9 Replies
View Related
Feb 23, 2007
I'm having trouble coming up with vba code to align values in columns A and B on my workbook. I've attached a sample spreadsheet to illustrate what I am in need of. I've searched the forum and can't quite find the same problem. In my case, their may be the same value more than once in a column, so I'm not sure that vlookup would work.
View 5 Replies
View Related
Mar 26, 2009
I am trying to combine data from multiple worksheets and make a chart. I have about 200 keywords in every worksheet (about 50), and some of them repeat themselves through worksheets and some don't. For every keyword, I have an associated value in the next column that I want to portray over time (each worksheet is for a different period).
So what I need to figure out is how to be able to pick any 10 keywords from the worksheets and put them in a line chart where I can see the associated value for each period for every worksheet so I can compare my keywords' efficiency. The tricky part is that some worksheets do not contain the keyword and other worksheets contain the keyword in a different cell than the previous wsheet.
View 4 Replies
View Related
Sep 22, 2009
How to show negative values displayed in brackets so that it is aligned properly with positive values in the same column. That is, the right bracket of the negative value is as follows:
(1,234.56)
800.12 - so that 2 is aligned underneath 6
I have done research on the forum and help on vba and got the following
"#,##0.00_);[Red]($#,##0.00)"
I understand that the underscore is needed for the alignment.
However, when I include the _) the above is shown as follows:
(1,234.56)
800.12_) the underscore and bracket are included and the bracket and is aligned underneath the right bracket above.
View 9 Replies
View Related
Apr 14, 2009
I feel stupid asking this, but for some reason I am having trouble keeping alignment of columns in a Pivot Table....
I have a Column of text in a pivot table and I am just trying to center the darn thing... but no matter what I have tried, when I refresh the table it goes back to left-aligned....
I have Preserve Formatting set on... in the Table Options.
View 14 Replies
View Related
Feb 1, 2010
I have a fixed height userform textbox that i would like to show the last line of.
After there is text in the textbox, enable=false.
I can see how to align for left, right and centre, but not for bottom.
I don't want to change the height or size of the textbox and just need to display the last line of data.
View 9 Replies
View Related
Dec 31, 2013
Example of Cell Movment.xlsx
The following attachment should explain what I am trying to accomplish.
View 2 Replies
View Related
Mar 4, 2012
I need a macro to identify the word "(blank)" based upon alignment (here it is left most) and to delete the next 4 rows only.
View 6 Replies
View Related
Jan 23, 2008
As a simple example, I have three columns (A,B,C). In both Column A and B they have single word text in them, but in Column C it is a paragraph of words that I format the cells to 'fill' so that it is all tight and concise when viewing the worksheet.
Afer I have saved the document and have closed it when I reopen the document. Cells from column C have randomly duplicated themselfs throughout the entire worksheet,but only onto columns A,B,C (where there is pre-existing text). As the random cells get duplicated it overrights the original text (results) as it does it, so once I open up a document and see this it is to late. this is a continual problem that I cant find a resolution for.
View 9 Replies
View Related
Jul 31, 2012
My first version is this:
Code:
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.SeriesCollection(1).XValues = "=DATA!$A$8:$A$19
Works without problems, but I really don't want to use "ActiveSheet" there
I changed it to:
Code:
Dim chtTR As ChartObject
Set chtTR = shtData.ChartObjects("Chart 1")
chtTR.SeriesCollection(1).XValues = "=DATA!$A$8:$A$19"
and it gives me
"Object doesn't support this property or method."
View 3 Replies
View Related
Jun 14, 2007
Creating a vba program that automatically generates charts. Looking for the easiest way to get the range of the data that the chart is using (later in program). Noticed the SetSourceData method but dont see a GetSourceData (that returns a range).
View 3 Replies
View Related
Nov 20, 2012
I have chart object in the sheet. I wrote code that makes the cart big, but it is not on top of other things. I need to add a snippet of the code that would make it "bring to the front".
View 1 Replies
View Related
Nov 30, 2012
i need to prepare a bar chart from some data. what i want to do is that i want bar size to be fixed (larger than what automatically comes) and then excel changes the size of chart based on no of x-axis values keeping the bar size fix.
(currently chart size is fixed and bar size changes accordingly, i just want the reverse that bar size is fixed and chart size changes according to no of values in axis)
View 4 Replies
View Related
Oct 13, 2008
I just wonder if we can have the code to exit if G2 returns an even number, as 2, 4, 6 etc?
Sub Listbox3_Change()
If ActiveSheet.Index 1 Then Exit Sub
Application.ScreenUpdating = False
With Sheets(1)
.Unprotect "mypsw"
.Range("G2").Value = ActiveSheet.ListBoxes(Application.Caller).Value
With .ChartObjects("Chart 2").Chart.Axes(xlValue)
If VBA.VarType(Sheets(1).Range("D1").Value) = VBA.vbError Then Exit Sub
If VBA.VarType(Sheets(1).Range("E1").Value) = VBA.vbError Then Exit Sub
.MinimumScale = (Sheets(1).Range("D1") - 0)..............
View 9 Replies
View Related
Dec 11, 2006
I am trying to color code the cubes in my chart. I'd like to be able to be able to specify a specific color per cube. What code what I write for the Sheet to do this?
View 5 Replies
View Related
Dec 19, 2006
to write a code that would create a chart automatically in another worksheet when a button is clicked.
I have attached the sample data that I am working on.
Each row in the sheet represent 3 coordinates, which are:
coordinate # 1 = start, 0
coordinate # 2 = centre, level
coordinate # 3 = end, 0
View 6 Replies
View Related
May 11, 2014
i am looking for excel custom number format for 0 (zero) number that make center alignment..
for example ;
sample (when type 0 (zero) number)
after custom number format
- (right alignment)
- (center alignment)
how make center alignment with custom number format for 0 (zero) number..
View 4 Replies
View Related
Aug 22, 2008
I wrote this code so that someone else can keep track of a certain bond. It will provide him with returns and a chart between 2 periods. I wrote it on Office 2007 and it works for me, from the begining I wrote the code in an office 97-2003 compatible file. The worksheet is attached.
Sub Grafico()
Dim FechaGraficoInicial As Date 'Fecha de referencia para el rango
Dim FechaGraficoFinal As Date
Workbooks("Julius Baer.xls").Activate 'Para evitar un error, NO BORRAR
Worksheets("Precios").Activate
Columns("G:G").Select
Selection.ClearContents
Workbooks("Julius Baer.xls").Activate
Worksheets("Rentabilidades").Activate
FechaGraficoInicial = Worksheets("Rentabilidades").Range("B22")
FechaGraficoFinal = Worksheets("Rentabilidades").Range("B23")
i = 0
Condicional = 0 'Determina si el grafico se hace o no..........................
View 2 Replies
View Related
Sep 2, 2006
I have a program that updates values quarterly when run. The spreadsheet that it works with also contains a couple of pie charts that correspond to the updated data. the charts only have one series with category values. I recorded a macro to see the code excel uses for creating a new chart and tried to modify the statements to my needs but have been running into runtime error 1004 ("Method ' Cells' of Object '_Global' failed"). The code is as follows I don't have any trouble until the last two statements.
Sub Chart_Updater()
Sheets(Chart1var).Select
With ActiveChart
.HasTitle = True
If Chart1var = "COLI VUL 1 Fund Chart" Then
.ChartTitle.Text = "COLI VUL 1 Allocation by Fund Provider " _
& sday & "-" & sday & "-" & Lyear
ElseIf Chart1var = "COLI VUL 2 Fund Chart" Then
.ChartTitle.Text = "COLI VUL 2 Allocation by Fund Provider " _
& sday & "-" & sday & "-" & Lyear
ElseIf Chart1var = "COLI VUL 7 Fund Chart" Then
.ChartTitle.Text = "COLI VUL 7 Allocation by Fund Provider " _
The variables fundtr1, fundtr2, and emptycolvar are public, and are all returning values, so there is no problem there. Also I can't use ranges like "A1:F7" because the range needs to be variable.
View 5 Replies
View Related
Jul 16, 2007
I am in the middle of building a macro for some data to be automated. I have two sheets, one of which has an existing chart but the data has been removed so now there is no values on the chart. I then have a second sheet with data on it. The range is b4:c16. I want to point this data onto my chart on the other sheet.
View 2 Replies
View Related
Dec 21, 2007
How do I write a short piece of code that defines the specific height and width that I want to assign to an existing chart. The code will be added to existing code that I have that formats the chart in other ways. This needs to be able to work with any active chart selected, not a specific named chart.
View 2 Replies
View Related
Mar 21, 2008
I am working on a manning document which tells me when people report, and depart based on their job position. I have all of the info in one worksheet, and want to generate a bar like graph on another worksheet in the workbook (by just changing the cell color for ease) for a snapshot to view holes in job positions.
The snapshot worksheet has the list of jobs on the left, and months/years in a line acorss the top i.e.
2006
| J | F | M | A | M | J | J | A | S | O | N | D |
Job Position X X X X X X
Job Position X X X X X X
Here was the code I started with, and it doesn't do anything!
Private Sub Workbook_CreateCalendar(ByVal Sh As Object, ByVal Target As Range)
Dim Firstrow As Long
Dim Lastrow As Long
Dim Lrow As Long
Dim Fcol As Date
Dim Lcol As Date
Dim Lencol As Long
Dim CalcMode As Long
Dim ViewMode As Long
'Set the Start Date of your Sheet
Dim DatTim1 As Date
DatTim1 = #1/1/2006#
View 5 Replies
View Related
May 27, 2008
I have a spreadsheet (see attached) in which there are many series and i want to be able to delete most of the series except the first 4.
(The 0%, 5% 10% air voids and the 95% comp line)
iv got this code, which is attacted to a command button, which works fine to delete all the series but makes the graph a blank white box. id prefer it so it delete just the series not the graph "picture?" ...
View 7 Replies
View Related
Jun 17, 2008
I have managed to create something similar to what i am working for using an example from Lacher and Gant Charts. i am now stuck as I can enter more than 40 status as it then gives me an error. The following is the code: Can any1 highlight where i need to make any changes to stop the error from occuring:
Option Explicit
Sub CreateTimeChartData()
Dim vTimeData As Variant
Dim i As Integer
Dim sRoom As String
Dim vLastEndTime As Variant
Dim oSeries As Series
' set up
Application. ScreenUpdating = False
Application.DisplayAlerts = False
' create chart data worksheet
With Worksheets("TimeData"). Range("TimeList"). CurrentRegion
.Sort Key1:="Room", Key2:="Start Time", Header:=xlYes
vTimeData = .Value
Worksheets.Add
On Error Resume Next
Worksheets("ChartData").Delete..........................
View 3 Replies
View Related
May 8, 2009
very complex spreadsheet for weight & balance calculations. It's to the point where everything works perfectly in Excel 2007, but it must be used primarily with Excel 2003. Discovered that a crashing problem had to do with condtional formatting, that's all been cleared and will soon be fixed, but there's one that I just can't quite figure out.
I'm using the worksheet change event to trigger the update of charts... In this case, it's looking at a particular cell that has data validation on a dropdown as the trigger. Works perfectly in 2007, and if I put a msgbox prompt in to be launched by a change of that cell, it launches. I can put the chart update code in a separate sub and launch it manually every time, but I cannot call it from the worksheet change.
I've included attachments showing what I believe are the relevant bits of code -
View 9 Replies
View Related
Apr 27, 2008
In VBA, how to add a secondary x-axis in the lower portion of the chart if I already have the primary axis in the upper part?
This code
ActiveChart.HasAxis(xlCategory, xlSecondary) = True
just adds it to the upper if I have the primary at lower.
View 4 Replies
View Related
Jul 1, 2008
I have about 50 lincharts that I wont to update with VBA but they have different number of series. Some have two series, some three and others four. Is there a way to count how many series a chart has? Otherwise could I get tips on how to approach this problem.
View 2 Replies
View Related
