Как построить сердце в экселе
Обновлено: 04.07.2024
Построить спираль Архимеда по следующим данным:
- в столбце А – значения угла t в радианах от 0 до 10 с шагом 0,2
- в столбце В – значения r = 0,5* t
- в столбце С – значения х = r * cos ( t )
- в столбце D – значения y = r * sin ( t )
- выделить значения в столбцах С и D и построить диаграмму
(тип: точечная с гладкими кривыми )
Построить астроиду по следующим данным:
- в столбце А – значения угла t в радианах от 0 до 7 с шагом 0,2
- в столбце В – значения х = 2*( cos ( t )) 3
- в столбце С – значения y = 2*( sin ( t )) 3
- выделить значения в столбцах B и С и построить диаграмму
(тип: точечная с гладкими кривыми )
П остроить улитку Паскаля по следующим данным:
- в столбце А – значения a от 0 до 360 с шагом 10 (угол в градусах)
- в столбце В – значения t = a * π/180 (угол в радианах)
- в столбце С – значения p = cos ( t )–0,5
- в столбце D – значения x = p * cos ( t )
- в столбце Е – значения у = p * sin ( t )
- выделить значения в столбцах D и E и построить диаграмму
(тип: точечная с гладкими кривыми )
Построить лемнискату Бернулли по следующим данным:
- в столбце А – значения a от 0 до 360 с шагом 10 (угол в градусах)
- в столбце В – значения t = a * π/180 (угол в радианах)
- в столбце С – значения r = 2* sin (2* t ) 2
- в столбце D – значения x = r * cos ( t )
- в столбце E – значения y = r * sin ( t )
- выделить значения в столбцах D и E и построить диаграмму
(тип: точечная с гладкими кривыми )
П остроить график в форме сердца по следующим данным:
- в столбце А – значения a от 0 до 360 с шагом 10 (угол в градусах)
- в столбце В – значения t = a * π/180 (угол в радианах)
- в столбце С – значения x = 16*( sin ( t )) 3
- в столбце D – значения у =13* cos ( t )–5* cos (2* t )–2* cos (3* t )– cos (4* t )
- выделить значения в столбцах C и D и построить диаграмму
(тип: точечная с гладкими кривыми )
Если на прошлый День Святого Валентина вы уже подарили любимой женщине гепардовую шубу, а на позапрошлый - iPhone 7, и теряетесь в догадках - что бы придумать еще, то могу предложить вариант:
Чтобы сотворить такое, потребуется 2 минуты.
Открываем Excel, идем на вкладку Вставка - Фигуры (Insert - Shapes) и выбираем сердце:
Рисуем его на листе, внутрь вписываем трогательный текст, форматируем подобающе:
Для пущей натуральности добавляем 3D-эффект на вкладке Формат - Эффекты фигур (Format - Shapes Effects) :
И последний штрих - добавляем макрос для анимации. Жмем Alt+F11, в открывшемся окне редактора Visual Basic вставляем новый пустой модуль через меню Insert - Module и копируем туда текст вот этого макроса:
Закрываем редактор Visual Basic, жмем Alt+F8 и запускаем наш макрос. Вуаля! Любимая - в экстазе, вы - в поцелуях, праздник - удался. Если любимая(ый) не оценит, то хотя бы изучите команды VBA для работы с 3D :)
Отличная идея! Чтобы картинка встала на место после вращения при заданных параметрах вращения вокруг осей, конечное значение i нужно взять 7200? Николай, расскажите, пожалуйста, по подробнее как вы создаете анимированные gif, как-то с помощью Camtasia, но как? В смысле - как?Запускаю Camtasia Recorder, жму кнопку "Record" записываю ролик. Потом жму "Produce" и выбираю тип для экспорта (Animated Gif) и все. В YouTube, кстати, полно обучающих роликов по этой программе - поищите.
Спасибо Николай.
У меня excel 2003. Сделал по данному примеру, но ошибка:
Николай, у меня Excel 2010, а ошибка та же
"With ActiveSheet.Shapes.Range(Array("Сердце 1")).ThreeD".
Есть ещё варианты возможной причины?
Добавьте в код то, что выделено красным:
Sub Heart()
For i = 1 To 3000
With ActiveSheet.Shapes.Range(Array("Сердце 1";)).ThreeD
.RotationX = i
.RotationY = i / 20
.RotationZ = i / 2
End With
DoEvents
Application.Wait (Now + TimeSerial(0, 0, 0.1))
Next i
End Sub
Если еще будет тормозить, добавьте то же еще и перед Next ^)
а можно добавить еще движение фигуры и прерывание цикла?
Действительно виснет. Скачал пример - так же виснет. Оборачивается секунд 8 примерно и страница "Не отвечает". Процесс Excel в это время грузит процессор на 25%. Секунд через 20 страничка развисает. Загрузка с 25% падает до 0.
Ноутбук с Win7 32bit. Core i5. Видеокарта Radeon HD 5400
Хотел завтра сотруднице на День рождения маленький сюрприз сделать. Рад бы помочь, но не могу. Пробовал на всех доступных мне компьютерах (3 шт) и двух версиях Office - работает.
У меня конфигурация, кстати, примерно та же, только GeForce вместо Radeon'а.
Добавьте в код то, что выделено красным:
Если еще будет тормозить, добавьте то же еще и перед Next ^)
Урряяя. Заработало.
Спасибо!
.jpg)
Интересно, а можно сделать такой же "трюк" с другими фигурами? (например, выбрать овал, написать в него текст и тоже заставить вращаться по определенной траектории; попробовал, но не получается почему-то, может для других фигур нужно полностью другой макрос писать). Спасибо большое, Николай, работает.
Подскажите пожалуйста, а как все-таки сделать, чтобы при открытии файла макрос запускался сразу же автоматически, без нажатия на кнопку для запуска?
Спасибо заранее.
Подскажите можно ли тоже самое проделать с картинкой? что нужно написать в первой строке макроса для этого? Николай, добрый день!
Мне стала очень интересна эта статья, спасибо Вам.
Хотель бы узнать, возможно ли усовершенствовать этот код, чтобы фигура начаналась вращаться при открытии документа Excel? либо по нажатию на кнопку (скажем пуск-стоп). Заранее спасибо!
(Есть идея оформить так логотип компании в прайс листе ) Да, конечно, можно легко сделать кнопку для запуска этого (и любого другого макроса) - см. тут
я только знакомлюсь с VBA, пыталась сделать, но вышла ошибка 400. Могли бы мне помочь.
Заранее спасибо.
Вставьте код в модуль "ЭтаКнига" под гриф:
Private Sub Workbook_Open()
.
Очень рекомендую сначала почитать статью про основы использования макросов - многое станет понятно.
Спасибо за идею
А с Powerpoint возможно? Или зря мучаюсь?
А как можно сделать так, чтобы сразу несколько фигур двигались на одном листе ексель?
У меня все летает.
8)
Построить спираль Архимеда по следующим данным:
- в столбце А – значения угла t в радианах от 0 до 10 с шагом 0,2
- в столбце В – значения r = 0,5*t
- в столбце С – значения х = r*cos(t)
- в столбце D – значения y = r*sin(t)
- выделить значения в столбцах С и D и построить диаграмму
(тип: точечная с гладкими кривыми)
Построить астроиду по следующим данным:
- в столбце А – значения угла t в радианах от 0 до 7 с шагом 0,2
- в столбце В – значения х = 2*(cos (t)) 3
- в столбце С – значения y = 2*(sin (t)) 3
- выделить значения в столбцах B и С и построить диаграмму
(тип: точечная с гладкими кривыми)
Построить улитку Паскаля по следующим данным:
- в столбце А – значения a от 0 до 360 с шагом 10 (угол в градусах)
- в столбце В – значения t = a*π/180 (угол в радианах)
- в столбце С – значения p = cos(t)–0,5
- в столбце D – значения x = p*cos(t)
- в столбце Е – значения у = p*sin(t)
- выделить значения в столбцах D и E и построить диаграмму
(тип: точечная с гладкими кривыми)
Построить лемнискату Бернулли по следующим данным:
- в столбце А – значения a от 0 до 360 с шагом 10 (угол в градусах)
- в столбце В – значения t = a*π/180 (угол в радианах)
- в столбце С – значения r = 2*sin(2*t) 2
- в столбце D – значения x = r*cos(t)
- в столбце E – значения y = r*sin(t)
- выделить значения в столбцах D и E и построить диаграмму
(тип: точечная с гладкими кривыми)
Построить график в форме сердца по следующим данным:
- в столбце А – значения a от 0 до 360 с шагом 10 (угол в градусах)
- в столбце В – значения t = a*π/180 (угол в радианах)
- в столбце С – значения x = 16*(sin(t)) 3
- в столбце D – значения у =13*cos(t)–5*cos(2*t)–2*cos(3*t)–cos(4*t)
- выделить значения в столбцах C и D и построить диаграмму
(тип: точечная с гладкими кривыми)
Построение диаграммы в Microsoft Excel по таблице – основной вариант создания графиков и диаграмм другого типа, поскольку изначально у пользователя имеется диапазон данных, который и нужно заключить в такой тип визуального представления.
В Excel составить диаграмму по таблице можно двумя разными методами, о чем я и хочу рассказать в этой статье.
Способ 1: Выбор таблицы для диаграммы
Откройте необходимую таблицу и выделите ее, зажав левую кнопку мыши и проведя до завершения.
Вы должны увидеть, что все ячейки помечены серым цветом, значит, можно переходить на вкладку «Вставка».
Там нас интересует блок «Диаграммы», в котором можно выбрать одну из диаграмм или перейти в окно с рекомендуемыми.
Откройте вкладку «Все диаграммы» и отыщите среди типов ту, которая устраивает вас.
Справа отображаются виды выбранного типа графика, а при наведении курсора появляется увеличенный размер диаграммы. Дважды кликните по ней, чтобы добавить в таблицу.
Предыдущие действия позволили вставить диаграмму в Excel, после чего ее можно переместить по листку или изменить размер.
Дважды нажмите по названию графика, чтобы изменить его, поскольку установленное по умолчанию значение подходит далеко не всегда.
Не забывайте о том, что дополнительные опции отображаются после клика правой кнопкой мыши по графику. Так вы можете изменить шрифт, добавить данные или вырезать объект из листа.
Для определенных типов графиков доступно изменение стилей, что отобразится на вкладке «Конструктор» сразу после добавления объекта в таблицу.
Как видно, нет ничего сложного в том, чтобы сделать диаграмму по таблице, заранее выбрав ее на листе. В этом случае важно, чтобы все значения были указаны правильно и выбранный тип графика отображался корректно. В остальном же никаких трудностей при построении возникнуть не должно.
Способ 2: Ручной ввод данных
Преимущество этого типа построения диаграммы в Экселе заключается в том, что благодаря выполненным действиям вы поймете, как можно в любой момент расширить график или перенести в него совершенно другую таблицу. Суть метода заключается в том, что сначала составляется произвольная диаграмма, а после в нее вводятся необходимые значения. Пригодится такой подход тогда, когда уже сейчас нужно составить график на листе, а таблица со временем расширится или вовсе изменит свой формат.
На листе выберите любую свободную ячейку, перейдите на вкладку «Вставка» и откройте окно со всеми диаграммами.
В нем отыщите подходящую так, как это было продемонстрировано в предыдущем методе, после чего вставьте на лист и нажмите правой кнопкой мыши в любом месте текущего значения.
Из появившегося контекстного меню выберите пункт «Выбрать данные».
Задайте диапазон данных для диаграммы, указав необходимую таблицу. Вы можете вручную заполнить формулу с ячейками или кликнуть по значку со стрелкой, чтобы выбрать значения на листе.
В блоках «Элементы легенды (ряды)» и «Подписи горизонтальной оси (категории)» вы самостоятельно решаете, какие столбы с данными будут отображаться и как они подписаны. При помощи находящихся там кнопок можно изменять содержимое, добавляя или удаляя ряды и категории.
Обратите внимание на то, что пока активно окно «Выбор источника данных», захватываемые значения таблицы подсвечены на листе пунктиром, что позволит не потеряться.
По завершении редактирования вы увидите готовую диаграмму, которую можно изменить точно таким же образом, как это было сделано ранее.
Вам остается только понять, как сделать диаграмму в Excel по таблице проще или удобнее конкретно в вашем случае. Два представленных метода подойдут в совершенно разных ситуациях и в любом случае окажутся полезными, если вы часто взаимодействуете с графиками во время составления электронных таблиц. Следуйте приведенным инструкциям, и все обязательно получится!
Читайте также: