Как создать похожую заставку из Access для Excel

@Mishel915 · Регистрация: 10.10.2009

Author24 — интернет-сервис помощи студентам

Всем доброго времени суток!

Как создать заставку, с таким же эффектом или подобным из Access для Excel ?

Заставка в Access:

@Mishel915 · 05.02.2012, 01:55 **[ТС]**

Вложение:

@pincet · 05.02.2012, 11:11

WorkBookOpen event в помощь

@Mishel915 · 06.02.2012, 00:48 **[ТС]**

Макрос:

Visual Basic

Private Sub UserForm_Activate()
    OriginalWidth = Me.WindowWidth
    OriginalHeight = Me.WindowHeight
    OpenClose = True
    Me.Move Me.WindowLeft + (Me.WindowWidth / 2), Me.WindowTop + (Me.WindowHeight / 2), 100, 100
    TimerInterval = 1
    BColor = 255
End Sub

не срабатывает - в первой строке для Me.WindowWidth - Compile error: Metod or data member not found.

@kuklp · 06.02.2012, 02:42

Не вникал...

Visual Basic

Private Sub UserForm_Activate()
    OriginalWidth = Me.Width
    OpenClose = True
    Me.Move Me.Left + (Me.Width / 2), Me.Top + (Me.Height / 2), 100, 100
    TimerInterval = 1
    BColor = 255
End Sub

@Mishel915 · 06.02.2012, 12:48 **[ТС]**

Спасибо за поддержку темы.

Если что-то сделать с Me.WindowWidth, то следующая ошибка в пятой строке для TimerInterval = 1 -

Compile error: Variable not defined.

@kuklp · 06.02.2012, 12:54

Это значит, что Вы пытаетесь использовать необъявленную переменную.

Блоги программистов
Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .

@Mishel915 206 / 13 / 2 Регистрация: 10.10.2009 Сообщений: 154
		1
	Как создать похожую заставку из Access для Excel 05.02.2012, 01:40. Показов 2443. Ответов 6 Метки нет (Все метки) Всем доброго времени суток! Как создать заставку, с таким же эффектом или подобным из Access для Excel ? Заставка в Access: 0

@pincet 1652 / 1151 / 173 Регистрация: 23.07.2010 Сообщений: 6,858
	05.02.2012, 11:11	3
	WorkBookOpen event в помощь 0

@Mishel915 206 / 13 / 2 Регистрация: 10.10.2009 Сообщений: 154
	06.02.2012, 12:48 [ТС]	6
	Спасибо за поддержку темы. Если что-то сделать с Me.WindowWidth, то следующая ошибка в пятой строке для TimerInterval = 1 - Compile error: Variable not defined. 0

@kuklp 1702 / 189 / 19 Регистрация: 20.11.2011 Сообщений: 281
	06.02.2012, 12:54	7
	Это значит, что Вы пытаетесь использовать необъявленную переменную. 0