Ощущается как +4

739мм

Новая тема

Вы не можете создавать новые темы.
Т.к. вы неавторизованы на сайте. Пожалуйста назовите себя или зарегистрируйтесь.

Список тем

Вопрос по Макросам Excel...

С друзьями на NN.RU

У вас пока нет друзей на NN.RU, поэтому ссылка на тему не может быть отправлена.

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

В социальных сетях

G@G

05.09.2006

Проблема такая: сделал макрос (записал порядок действий) для построения диаграммы. Диаграмму нужно построить и увеличить на опред. часть листа. Диаграмма нормально строится. Ошибка возникает в момент увеличения размера и перемещения диаграммы (догадался, что диаграмма явл. переменной т.к. код ("Диаг. 127"-см ниже) каждый раз разный) Макросы писать не умею и не знаю язык, подскажите на пальцах как подправить код или дайте линк где поискать, срочно нада.

Ошибка в строке:
ActiveSheet.Shapes("Диаг. 127").ScaleWidth 1.82, msoFalse, _
msoScaleFromTopLeft

З.Ы: Если непонятно написал, сильно не пинайте, по другому пока не могу:(

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

G@G

06.09.2006

И ещё один вопросец по диаграмме:
Есть простой лин. график, на него нужно добавить несколько горизонтальных линий (соответ. опред значениям). Подскажите как можно добавить, никак не соображу.

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Reutoff

06.09.2006

Можно просто тупо эти линии нарисовать поверх диаграммы с помощью стандартных средств графики Excel :-)

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

G@G

06.09.2006

Не, надо чтоб они строились по значениям, которые будут меняться.

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

G@G

06.09.2006

Вопрос №2 снят, сделал.

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Корвин

06.09.2006

G@G писал(а)
Ошибка в строке:
ActiveSheet.Shapes("Диаг. 127").ScaleWidth 1.82, msoFalse, _
msoScaleFromTopLeft

З.Ы: Если непонятно написал, сильно не пинайте, по другому пока не могу:(

Понимаю твою проблему так как САМ СТОЛКИВАЛСЯ с такой же. В общем ("Диаг. 127") писать нельзя!!!
Нужно ВЫРЕЗАТЬ это имя и вставить это и использовать. Просто так его использовать нельзя!!!!!!! Хотя тиоретически всё верно!
К сожалению моя программа такого типа где я это реализовал дома. ЩАс просмотреть команды не могу. Но вырезать по ходу команда MID.

Вместо ("Диаг. 127") я писал два оператора возвращающих это же значение.
Дома нада глянуть.

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

G@G

06.09.2006

Буду, оч. благодарен.

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Chevy

06.09.2006

Пример... конечно свойства другие будут для вашей диаграммы..

Sub CreateDiagramm()
'
Dim Diagramma As Chart

Set Diagramma = Charts.Add

Diagramma.ChartType = xlColumnClustered
Diagramma.SetSourceData Source:=Sheets("Лист1").Range("A1:H2"), PlotBy:=xlRows
'Diagramma.Location Where:=xlLocationAsNewSheet, Name:="Диаграмма"
With Diagramma
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With

End Sub

Ответить

Ссылка на сообщение

открыть ссылку в новом окне

В социальных сетях

Новая тема

Список тем

Последние темы форумов

Форум Тема (Автор) Последний ответ Ответов

Техно-форум Нужен sata-шный Seagate на 500 гБт или контроллер от него. - antidot 29.04.2025 в 23:31:24 9

Интернет-НН Ростелеком в частный дом - xj 29.04.2025 в 13:14:35 1

Мобильный форум Есть ли безлимитные тарифы? - V.Bond 29.04.2025 в 20:11:54 11

Технотуса ПАС в акустике - REPTe 06.02.2025 в 13:52:11 1

Техно-объявления мониторы за самовывоз - jurok69 28.10.2024 в 09:15:22 10

Объявления на НН.РУ - Техника

Добавить объявление

Оперативная память Corsair XMS3 CMX8GX3M2A1600C9

Оперативная память Corsair XMS3 CMX8GX3M2A1600C9 Отправка в регионы после оплаты. Продаются сразу обе. Цена за обе 2000 руб....
Цена: 1 000 руб.

Принтер лазерный HEWLETT PACKARD HP-6L

Принтер лазерный HEWLETT PACKARD HP-6L Отправка в регионы после оплаты. 3штуки БУ. Внешний вид из магазина простояли на складе...
Цена: 4 500 руб.

Материнские платы на запчасти и не только

Материнские платы на запчасти и не только Материнские платы и другие комплектующие Отправка в регионы после оплаты. Транспортной...
Цена: 3 000 руб.

Сетевой фильтр APC Surge Arrest

Сетевой фильтр APC Surge Arrest для радиолюбителя.и не только Отправка в регионы после оплаты. ЦЕНА 3000 руб. В рабочем состоянии....
Цена: 3 000 руб.