Нахождение определенной позиции на слайде, где заканчивается полоса на графике - PullRequest
Новая
       12

Нахождение определенной позиции на слайде, где заканчивается полоса на графике

0 голосов
/ 24 мая 2018

У меня есть конкретные запросы компании, которые требуют от меня добавления строки в конец каждого бара.Эта линия должна быть строкой объекта вне графа, и я должен сделать это для каждого графа.Они хотят, чтобы линия была там до анимации, они хотят, чтобы она была на каждом графике на слайде до того, как будут отображены какие-либо данные, поэтому единственный вариант - иметь ее как объект.

Есть ли способ автоматизировать это??

Я думаю о чем-то, что находит позицию на графике, где заканчивается бар, затем нахожу эту позицию относительно слайда и создаю линию, которая является шириной бара, который находится в этой позиции..

Я не уверен, что это можно сделать, любые предложения будут оценены.

Вот пример, чтобы помочь передать мой вопрос.

Green bars need added

1 Ответ

0 голосов
/ 23 июня 2018

Звучит так, будто вы хотите найти последнюю использованную ячейку в диапазоне.Вот несколько вариантов, чтобы сделать это. 

Sub FindingLastRow()
'PURPOSE: Different ways to find the last row number of a range
'SOURCE: www.TheSpreadsheetGuru.com

Dim sht As Worksheet
Dim LastRow As Long

Set sht = ActiveSheet

'Using Find Function (Provided by Bob Ulmas)
  LastRow = sht.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row

'Using SpecialCells Function
  LastRow = sht.Cells.SpecialCells(xlCellTypeLastCell).Row

'Ctrl + Shift + End
  LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

'Using UsedRange
  sht.UsedRange 'Refresh UsedRange
  LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row

'Using Table Range
  LastRow = sht.ListObjects("Table1").Range.Rows.Count

'Using Named Range
  LastRow = sht.Range("MyNamedRange").Rows.Count

'Ctrl + Shift + Down (Range should be first cell in data set)
  LastRow = sht.Range("A1").CurrentRegion.Rows.Count

End Sub

И ... вы можете найти последний использованный столбец, используя эти методологии ... 

Sub FindingLastColumn()

'PURPOSE: Different ways to find the last column number of a range
'SOURCE: www.TheSpreadsheetGuru.com

Dim sht As Worksheet
Dim LastColumn As Long

Set sht = ThisWorkbook.Worksheets("Sheet1")

'Ctrl + Shift + End
  LastColumn = sht.Cells(7, sht.Columns.Count).End(xlToLeft).Column

'Using UsedRange
  sht.UsedRange 'Refresh UsedRange
  LastColumn = sht.UsedRange.Columns(sht.UsedRange.Columns.Count).Column

'Using Table Range
  LastColumn = sht.ListObjects("Table1").Range.Columns.Count

'Using Named Range
  LastColumn = sht.Range("MyNamedRange").Columns.Count

'Ctrl + Shift + Right (Range should be first cell in data set)
  LastColumn = sht.Range("A1").CurrentRegion.Columns.Count

End Sub

Публикация назад, если у вас есть дополнительныевопросы.

...