Серый форум — AHK: Com_Excel_Snapes

Re: AHK: Com_Excel_Snapes

2018-08-24T16:57:01Z

xl.worksheets(1).Shapes.AddShape(9, l, t, w, h).Select

а не t, l, h, w!

Re: AHK: Com_Excel_Snapes

2018-08-24T12:56:26Z

MyCell := xl.worksheets(1).cells(2,2)
t := MyCell.top 
l := MyCell.left
h := MyCell.Height
w := MyCell.Width
xl.worksheets(1).Shapes.AddShape(9, t, l, h, w).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0

какая то хрень получается!

Re: AHK: Com_Excel_Snapes

2018-08-24T12:10:27Z

Malcev

Пробовал, не получается.

Вот это не могу настроить


t = ActiveCell.Top
l = ActiveCell.Left
h = ActiveCell.Height
w = ActiveCell.Width
ActiveSheet.Shapes.AddShape(msoShapeOval, l, t, w, h).Select

Re: AHK: Com_Excel_Snapes

2018-08-24T11:48:33Z

Выберите ячейку - Select. (Не проверял, эксела не стоит).

Re: AHK: Com_Excel_Snapes

2018-08-24T11:32:23Z

Malcev
Спасибо!


t = 10
l = 10
h = 10
w = 10
xl.worksheets(1).Shapes.AddShape(9, t, l, h ,w).Select
xl.Selection.ShapeRange.Fill.Visible := 0
xl.Selection.ShapeRange.Line.Visible := -1
xl.Selection.ShapeRange.Line.weight :=2
xl.Selection.ShapeRange.Line.ForeColor.RGB := 0

Фигуру сделал нужную, вставить её в заданную ячейку не получается!

Re: AHK: Com_Excel_Snapes

2018-08-24T09:26:44Z

Так а в чём проблема?
У вас же есть vba код.
Константы тут:
https://docs.microsoft.com/en-us/office … sotristate
Это:

With Selection.ShapeRange.Line
    .Visible = msoTrue

равнозначно:

Selection.ShapeRange.Line.Visible := -1

Re: AHK: Com_Excel_Snapes

2018-08-24T09:22:17Z

Malcev

Спасибо))Еще бы сделать фигуру прозрачной и с нужным цветом контура, еще и в заданной ячейки)

Re: AHK: Com_Excel_Snapes

2018-08-24T08:50:08Z

А откуда вы взяли метод AddShapeOval?
https://docs.microsoft.com/en-us/office … s.AddShape

AHK: Com_Excel_Snapes

2018-08-24T08:42:28Z

Добрый день! Нигде не могу найти информацию по вставке фигур в excel, нашел vba (прям тот, который нужен). Возможно ли это переделать в ahk?

Sub Add_Oval_in_ActiveCell()
t = ActiveCell.Top
l = ActiveCell.Left
h = ActiveCell.Height
w = ActiveCell.Width
    ActiveSheet.Shapes.AddShape(msoShapeOval, l, t, w, h).Select
    Selection.ShapeRange.Fill.Visible = msoFalse
    With Selection.ShapeRange.Line
    .Visible = msoTrue
    .ForeColor.RGB = RGB(0, 0, 0)
    .Transparency = 0
    End With
    With Selection.ShapeRange.Line
    .Visible = msoTrue
    .Weight = 2.25
    End With
End Sub

xl.activeSheet.Shapes.AddShapeOval(9, 10, 10, 10, 10).Select

- не работает