Экраны, построенные на основе цветных электронных чернил, кажутся мне одной из наиболее интересных и перспективных технологий. Они смогут стать отличной заменой энергоемких ЖК-экранов в планшетных и даже не только планшетных компьютерах. Главное, к чему стоит стремиться, на мой взгляд, их разработчикам – это увеличение скорости обновления картинки, повышению количества цветов и контрастности, уменьшение стоимости экранов. Сейчас существует две разработки в этой области, которые используются в коммерческих решениях – Mirasol и цветная электронная бумага E-Ink. Первая технология пока значительно выигрывает у второй по скорости обновления изображения, и даёт возможность просматривать даже видео.
Продолжить чтение »
В противовес бесчисленному количеству автобусных, трамвайная экскурсия не только позволяет познакомиться с историей города, но и сама по себе является необычным развлечением. Поискав на просторах Интернета такую услугу в Москве, удалось найти только два подходящих предложения. И то, по-настоящему трамвайной из них оказалась лишь одна.
Экскурсионный трамвай 302 – БИС
- Продолжительность: 1,5 часа (час по Москве, 15 минут по музею)
- Когда: со среды по воскресенье в 15.00, 17.00 и 19.00
- Где: ст. метро Пушкинская
- Стоимость: 500 рублей
- Сайт: www.dombulgakova.ru
На самом деле, к сожалению, это не трамвай, а лишь стилизованный под него автобус. С другой стороны на трамвае было бы просто не возможно проехать по данному экскурсионному маршруту. Трамвай-музей предлагает гостям путешествие по эпохе 20-30 годов начала века. Начинается маршрут от «Булгаковского Дома». Дальше можно увидеть Сад-Аквариум, театр Сатиры, Тверской бульвар, Дом Грибоедова, Патриаршие пруды, особняк Маргариты и много других мест, связанных с жизнью и творчеством Булгакова.
Трамвай-ресторан
- Продолжительность: 2 часа
- Где: ст. метро Чистые пруды или Шаболовка
- Стоимость: 3 880 руб Подробнее >>
- Сайт: Трамвай Аннушка
Существует этот трамвай, если судить по статьям в интернете, как минимум с 2005 года. Тогда внутреннее убранство трактира на колесах было не очень привлекательным и напоминало скромную забегаловку на провинциальной дороге. Сейчас же это вполне приличное, красивое место, с опрятными официантами и приятным внутренним интерьером. Во время поездки рассказывают истории любви из жизни знаменитых людей, когда-то живших в Москве. В вагоне играет живая музыка, представляют поэтические номера.
Продолжить чтение »
В Excel 2010 нужно выбрать в меню Файл-> Параметры-> Формулы-> раздел: Работа с формулами-> Стиль ссылок R1C1.
Либо воспользоваться макросом:
Private Sub Change_ColStyle() If Application.ReferenceStyle = xlA1 Then Application.ReferenceStyle = xlR1C1 Else Application.ReferenceStyle = xlA1 End If End Sub |
Как изменить заголовки столбцов в Excel 2007 и 2003: Excel — это не сложно!
Продолжить чтение »
Задача переноса графиков, диаграмм, таблиц из Excel в презентацию PowerPoint осложняется тем, что в последних версиях редактора презентаций (2007, 2010) разработчики убрали возможность записи производимых действий в макрос. Поэтому, для настройки внешнего вида презентации под собственные условия, нужно перерыть документацию по VBA для PowerPoint, либо просмотреть множество специализированных форумов. Ниже приведен код примера создания презентации из диаграмм Excel.
Private Sub export_to_pp() Set pr = CreateObject("PowerPoint.Application") Set mpr = pr.Presentations.Add 'Определение имени создаваемой презентации ppName = "Имя_для_презентации" 'Добавление пустого слайда Set ppSlide = mpr.Slides.Add(mpr.Slides.Count, ppLayoutBlank) 'Цвет фона слайда ppSlide.Master.Background.Fill.ForeColor.RGB = RGB(200, 200, 200) 'Добавление блока (Orientation, Left, Top, Width, Height) 'функция Application.CentimetersToPoints переводит сантиметры в пиксели Set TextShape = ppSlide.Shapes.AddTextbox(1, _ Application.CentimetersToPoints(1.09), _ Application.CentimetersToPoints(1.2), _ Application.CentimetersToPoints(22.86), _ Application.CentimetersToPoints(1.2)) TextShape.TextFrame.TextRange.Text = "Текст надписи" 'Настройка параметров блока с текстом TextShape.TextFrame.TextRange.Font.Name = "Calibri" TextShape.TextFrame.TextRange.Font.Size = 18 TextShape.TextFrame.TextRange.Font.Bold = True 'Отключение автоматического подгона размера блока под текст TextShape.TextFrame.AutoSize = 0 TextShape.Height = Application.CentimetersToPoints(1.2) TextShape.TextFrame.TextRange.Font.Color = vbWhite 'Вертикальное выравнивание текста по центру TextShape.TextFrame.VerticalAnchor = msoAnchorMiddle 'Копируем диаграмму в PowerPoint ListName.ChartObjects("ChartName").Copy Set chart1 = ppSlide.Shapes.PasteSpecial(ppPastePNG) chart1.Left = Application.CentimetersToPoints(1.52) chart1.Top = Application.CentimetersToPoints(3.65) 'Копируем таблицу как OLE object ListName.Range("H51:M60").Copy Set table1 = ppSlide.Shapes.PasteSpecial(ppPasteOLEObject) table1.Left = Application.CentimetersToPoints(1.52) table1.Top = Application.CentimetersToPoints(13.72) 'Копируем таблицу как рисунок ListName.Range("H61:M70").Copy Set table2 = ppSlide.Shapes.PasteSpecial(ppPasteEnhancedMetafile) table2.Left = Application.CentimetersToPoints(13.16) table2.Top = Application.CentimetersToPoints(13.72) Application.CutCopyMode = False 'Сохраняем презентацию в папке с текущей книгой Excel mpr.SaveAs (ThisWorkbook.Path + "\" + ppName) mpr.Close pr.Quit End Sub |
Продолжить чтение »
При запуске файла из локальной или глобальной сети, содержащего макрос, может появляться данная ошибка. Причём ошибка появляется сразу же после нажатия кнопки «Разрешить редактирование» в сообщении «Защищенный просмотр».
При повторном запуске файла ошибка уже не возникает (как и не появляется сообщение о «Защищенном режиме»). При выяснении причины проблемы, дебаггер выделяет строчку в коде, отвечающую за активацию одного из листов книги Excel: Sheets("Лист 1").Activate
.
Решение: в свойствах файла Excel на вкладке «Общие» нужно нажать кнопку «Разблокировать» рядом с предупреждением:
Задача: необходимость добавить к графику горизонтальную линию на уровне определенного значения одной из осей. Для решения этой задачи можно либо составить ряд одинаковых чисел и добавить соответствующий график на диаграмму, либо воспользоваться VBA:
Const Num = 0.8 'Значение уровня Dim objSeries As Series Dim arrValues() ActiveWorkbook.Sheets("Имя_листа").ChartObjects("Имя_диаграммы").Activate arrValues = ActiveChart.SeriesCollection(1).Values For i = LBound(arrValues) To UBound(arrValues) arrValues(i) = Num Next Set objSeries = ActiveChart.SeriesCollection.NewSeries objSeries.Values = arrValues objSeries.ChartType = xlLine |
Источник: Форум программистов
Продолжить чтение »
Пополняемый список полезных отрывков кода VBA для выполнения часто востребованных действий в MS Excel.
Служебные команды для ускорения скорости выполнения макроса:
'Отключение отображения выполняемых действий Application.ScreenUpdating = False 'Предотвращение появления предупреждающих сообщений Application.DisplayAlerts = False 'Предотвращение появления предупреждения об обновлении связей данных Application.AskToUpdateLinks = False 'Очистка буфера обмена Application.CutCopyMode = False |
Продолжить чтение »
Цель утренней зарядки — ускорить приведение организма в работоспособное состояние после сна и поднять настроение. Физические упражнения усиливают ток крови и лимфы, позволяя мышцам, связкам и сухожилиям получить повышенную дозу питательных веществ, что благотворно сказывается на их тонусе. Утренняя зарядка не предназначена для того, чтобы тренировать организм, исключает использование упражнений на силу и выносливость.
Следует решить, что требуется получить от утренних упражнений. Либо проснуться (тогда можно ограничиться одной лишь разминкой), либо повысить тонусу мышц (тогда после разминки следует добавить упражнения на растягивание, легкий бег и возможно силовые упражнения с собственным весом).
Продолжить чтение »
Если после выполнения макроса необходимо отправить в качестве вложения получившийся документ Excel, можно использовать следующий код. Он создаёт письмо с нужным перечнем адресатов в полях «Кому» и «Копия», с указанной темой, текстом и прикреплённым Excel файлом. Остаётся толкьо дописать письмо в случае необходимости и нажать кнопку «Отправить».
Dim OutlookApp As Object, SM As Object Set OutlookApp = CreateObject("Outlook.Application") Set SM = OutlookApp.CreateItem(olMailItem) 'SM.SentOnBehalfOfName = "mail@example.ru" 'Поле "От", если нужен другой отправитель SM.To = "mail@example.ru" 'Поле "Кому" SM.CC = "mail@example.ru" 'Поле "Копия" SM.Subject = "Тема письма" On Error Resume Next SM.Body = "Текст письма" SM.Attachments.Add ("C:\Test.xls") 'Адрес вложения SM.Display Set SM = Nothing Set OutlookApp = Nothing |
Продолжить чтение »
Здесь собраны интересные, необычные места столицы, которые стоит посетить в этом году.
Бассейн Чайка
- Адрес: Москва, Турчанинов переулок, дом 3, стр.1
- Цена: 450 — 670 руб. Подробнее>>
- Часы работы: пн — сб с 7.00 до 22.30; вс с 8.30 до 19.30 Подробнее>>
- Сайт: chayka-sport.ru
Открытый бассейн, построенный в 1957 году специально к международному фестивалю студентов и молодежи и практически не изменившийся с того времени: зимой можно плавать в клубах пара под снегом и не замерзать, летом — купаться и загорать на шезлонгах и круглый год ходить на занятия по аквааэробике, которые ведут бывшие тренеры сборной по синхронному плаванию. Также двери открывают тренажерные залы, танцевальные классы, сауны, ландшафтная площадка для мини-гольфа и теннисные корты.
Продолжить чтение »
Подборка оригинальных, интересных музейных объектов столицы.
Бункер — 42
- Адрес: Москва, 5-й Котельнический пер., дом 11
- Цена: 400 — 700 руб. Подробнее>>
- Экскурсии только по предварительной записи
- Сайт: www.bunker42.com( Facebook, ВКонтакте)
Музей Холодной Войны расположен внутри подземного бункера времён холодной войны на глубене 18 этажей, которые нужно будет пройти пешком (лифт есть, но вмещает совсем немного людей). В ходе экскурсии показывают фильм о холодной войне и истории появления и функционирования самого бункера. Затем в ходе прогулки по помещениями объекта можно будет посмотреть на его уменьшенную модель, поиграть в радиста на действующем миниатюрном коммутаторе, подержать автомат Калашникова, облачиться в кастюм химзащиты, поработать с советским сапёрным миноискателем, испытать на себе работу бункера во время ядерного удара и многое другое. Продолжительность обычной экскурсии около часа.
Продолжить чтение »
По утверждениям медиков, контрастный душ очищает поры от загрязнений, дарит бодрость, улучшает кровоснабжение и обмен веществ, способствует повышению мышечного тонуса, укрепляет иммунитет. Душ поможет проснуться и в нормальном состоянии приехать на работу. Это полезнее традиционной чашки кофе — сей напиток хоть и бодрит, но противопоказан тем, у кого проблемы с сердцем и желудком.
Рекомендации
Не начинайте процедуры в холодное время года. Мало приятного в том, чтобы, едва выбравшись из-под теплого одеяла, облить себя ледяной водой (пусть даже вперемешку с горячей), а потом выйти из ванной, дрожа от холода (после душа нам всегда холодно). Лучше всего привыкать к контрастному душу весной и летом. Но постепенно!
Продолжить чтение »
Перечень интересных нововведений, новых объектов и реконструкций.
Парк Горького
В центральном парке имени Горького (группы: Facebook, ВКонтакте) восстановят советские памятники архитектуры «Ванный Домик«, «Охотничий домик» и обсерваторию в Нескучном саду. Реставрируют Главный вход: его отремонтируют вместе с заборами и реализуют первичный замысел архитектора — устроить на крыше смотровую площадку. В парк переедет главная столичная арт-площадка «Гараж».
Другие места
Новую жизнь вдохнут и в городской сад «Эрмитаж». Отреставрированная летняя эстрада, театр и фонтан сделают его крупным культурным центром. В парке «Красная Пресня» помимо новой концертной площадки появится зона отдых на воде. В саду имени Баумана отреставрируют грот и историческую летнюю эстраду из кинофильма «Покровские ворота». Московский зоопарк в этом году откроет большую оранжерею. Тропические и субтропические растения выставят для осмотра на площади 138 квадратных метров в начале лета. В стеклянной ротонде станут выращивать около тысячи различных видов растений как в почве, так и в специальном бассейне.
Продолжить чтение »
Идея возникла у меня после прочтения этой новости. Суть в том, чтобы заменить стандартную панель закладок браузера Opera на панель с закладками, сохраненными в сервисе Яндекс.Закладки. Т.о. получается в некотором смысле альтернатива Opera Link, ибо закладки такой панели хранятся в Интернете и потому с какого компьютера их не откроешь, они всегда будут в актуальном состоянии.
Продолжить чтение »
Давно присматриваюсь к HTC Hero. Изучив множество обзоров и форумов, составил список достоинств и недостатков аппарата по отзывам пользователей оного. Подробнее под катом. [В квадратных скобках указаны источники информации]
Продолжить чтение »
В упомянутой соц. сети можно отмечать на своих фотографиях людей, не зарегистрированных на данном ресурсе. В подписи к такому фото, рядом с именем этого человека, в скобках, можно обнаружить ссылочку, позволяющую найти все фотографии с пользователем и его тёзками. Ссылка имеет следующий формат:
http://vkontakte.ru/photos.php?act=string&name=***
где вместо *** — имя и фамилия.
Если вводить этот адрес в адресной строке браузера Opera, то можно сразу писать кириллицей.
В случае если возникнут проблемы, то для кодирования в URL можно воспользоваться сервисом.
Т.к. пользователь не зарегистрирован, то и скрыть от просмотра фотографии с собой не сможет. Если интересующая фотография окажется защищённой от просмотра, то можно воспользоваться советом. Так, если человек закрыл свои фото от просмотра, и при этом отметил на нём незарегистрированного пользователя, то таким способом можно получить возможность просмотреть эту фотографию.
Ценность данной находки наверно сомнительна, но ради интереса поиграться можно.
Вот пример.