How can I decimal align?

Question

Split from this thread.

Setting a decimal tab stop for a table in Microsoft PowerPoint 2013

Is it any Possible to decimal align without keystroke CTRL+TAB like in word 

Example

Table (Decimal align in 2^nd^ column)

ABC	X.X	1,000
ABC	XX.X	900
ABC	X.XX	500
ABC	XXX.X	800
ABC	X.X	1000

In Word

Step 1: Select 2^nd^ column

Step2: Align Left

Step 3: Set “Tab Stop Position is 0.5” and “Alignment is Decimal” in Tab Dialog box (Alt + O + T or Alt + H + PG then Alt + T)

In PowerPoint

Step 1: Select 2^nd^ Column

Step 2: Align Left

Step 3: Manually Insert a Tab in each cell in 2^nd^ column (using Ctrl + Tab)

Step 4: Selected 2^nd^ Column

Step 5: Set “Tab Stop Position is 0.5” and “Alignment is Decimal” in Tab Dialog box (Alt + H + PG then Alt + T)

Question:

In Powerpoint, I want to skip step 3. because its very haed to do, when it comes more row and column. Please give me a suggestion to do easily... knowledge of VBA a macro could be useful

Answer 1

The following vba [powerpoint]code is for copy all the excel chart as a picture in activeworsheet and paste in powerpoint with selected shape position then delect the shape.

Problem: i don want copy chart in active worksheet. i need vba code for copy selected chart only as a piccture

kindly help me someone

Sub Chart_1()

Dim PPApp As PowerPoint.Application

Dim PPPres As PowerPoint.Presentation

Dim PPSlide As PowerPoint.Slide

Dim L, T As Double

Dim i, x As Integer

Set xlapp = GetObject(, "Excel.Application")

Set PPApp = GetObject(, "Powerpoint.Application")

Set PPPres = PPApp.ActivePresentation

Set PPSlide = PPPres.Slides(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)

x = PPApp.ActiveWindow.Selection.ShapeRange.Count

For i = 1 To x

xlapp.activesheet.Chartobjects(i).CopyPicture

L = PPApp.ActiveWindow.Selection.ShapeRange(1).Left

T = PPApp.ActiveWindow.Selection.ShapeRange(1).Top

With PPSlide.Shapes.Paste

.Left = L

.Top = T

End With

PPApp.ActiveWindow.Selection.ShapeRange(1).Delete

Next

Set PPSlide = Nothing

Set PPPres = Nothing

Set PPApp = Nothing

End Sub

Answer 2

If I understand this correctly, in Word, you can select an entire column and set the tab stops for every cell in that column at once.  PowerPoint doesn't allow this, and that's the problem you're trying to solve, correct?

Here's a bit of VBA that you can modify as needed:

Sub TabsInAColumn

Dim oTbl as Table

Dim lRowCount as Long

Dim lColNumber as Long

Dim sTabPosition as Single

' EDIT THIS to be whatever column you want to work with

lColNumber = 1 

' EDIT THIS to be whatever tab position you want

sTabPosition = 42.00

' You must have a table selected:

Set oTbl = ActiveWindow.Selection.ShapeRange(1).Table

  For lRowCount = 1 to .Rows.Count

    With .Cell(lRowCount, lColNumber).Shape.TextFrame2.Ruler

      .TabStops.Add msoTabSTopDecimal, sngTabPosition

    End With ' Cell

  Next   ' Row

With oTbl

End With

End Sub