Сообщение в excel рисунок слишком велик и будет усечен

Обновлено: 05.07.2024

Есть одна кнопка. По нажатию на нее надо чтобы этот лист со всеми форматами ( собственно областью печати) сохранялся в отдельный файл. Желательно чтобы имя нового файла можно было бы ввести.

23 ответа

Если под кнопкой Вы подразумеваете элемент ActiveX, то Вы можете использовать что-то типа :

Private Sub CommandButton1_Click()

iPrompt = "Введите имя файла": iTitle = "Диалоговое окно"

FileName: iFileName = InputBox(iPrompt, iTitle)

If iFileName = "" Then
iPrompt = "Пора вводить имя файла"
iTitle = "Хватит дурачиться"
GoTo FileName
Else
iFullName = Application.DefaultFilePath & "\" & iFileName & ".xls"
If Dir(iFullName) <> "" Then
iPrompt = "Введите новое имя файла"
iTitle = "Подберите уникальное имя"
GoTo FileName
End If
End If

Примечание :
При использовании данного метода существует вероятность, что данные в ячейках, содержимое которых превышает 255 символов, будут усечены.

Спасибо, это здорово, но все же немного не то.

Надо чтобы в той-же папке появлялся отдельный файл Эксель, в котором будет только один лист (нужный). А файл в котором работают так и оставался как есть.

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

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

Далее, после ввода имени файла, эта рабочая книга сохраняется не неизвестно куда, а в папку по умолчанию, как правило \Мои документы\

Так что всё совпадает с Вами требованиями, за исключением папки сохранения, где я имел право свободу выбора, так как в первоначальном вопросе эта часть не обсуждалась.

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

Лист действительно копируется вместе с кнопкой и макросом, который находится в модуле этого же листа, но это не противоречило Вашим первоначальным требованиям. Если этого нужно избежать, то можно использовать что-то вроде :

Private Sub CommandButton1_Click()

With Workbooks.Add(xlWBATWorksheet)
Me.Cells.Copy Destination:=.Worksheets(1).Cells
End With

Можно даже так, но первый пример, в основном был с прицелом на дальнейшее продолжение кода.

Private Sub CommandButton1_Click()

Ценные сведения, учту. Я решил избежать этого еще проще :-) я порсто перенес весь макрос с кнопкой на другой лист и все :-)

Еще один вопрос назрел, как можно скопировать несколько листов, т.е. чтобы новая книга состояла не из одного листа отдельного а из 3 скажем.

Если так делать то копируется весь лист (так и нужно было раньше), но теперь там есть код завязанный на другие листы книги и поэтому выскакивает ошибка. Т.е. надо копировать лист без кода. Вы предлагали как сделать это раньше. Но есть еще один момент, формулы с такого листа обращаются к файлу источнику. Т.е. там в каждой ячейке вместе с формулой появляется путь к файлу. Было бы идеально копировать именно значения из ячеек. Заранее спасибо.

Вот пример копирования, где формулы будут заменены на значения, которые они возвращают. Пример для двух рабочих листов, расположенных в одной рабочей книге, Вам нужно только изменить ссылки на об'екты.

В том-то и проблема я не знаю как это сделать для другой книги.

Private Sub CommandButton1_Click()

FileName: iFileName = InputBox(iPrompt, iTitle)

сделал что-то врде этого. Но так не работает.
Надо сразу чтобы в новой книге появлялись ячейки со значениями, а так муть какая-то происходит :-(

iCopyList = Array("Отчёт", "Список", "Мусор")
iOldCountList = Application.SheetsInNewWorkbook

With Workbooks.Add
For Each iList In ThisWorkbook.Worksheets(iCopyList)
iList.Cells.Copy
iCount = iCount + 1
With .Worksheets(iCount)
.Name = iList.Name
.Cells.PasteSpecial xlPasteValues
End With
Next
End With

iCopyList = Array("Отчёт", "Список", "Мусор")
iOldCountList = Application.SheetsInNewWorkbook

With Workbooks.Add
For Each iList In ThisWorkbook.Worksheets(iCopyList)
iList.Cells.Copy
iCount = iCount + 1
With .Worksheets(iCount)
.Name = iList.Name
.Cells.PasteSpecial xlPasteValues
End With
Next
End With


БОЖЕСТВЕННО - ТО что нужно :-)

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

Для того, чтобы скопировать рисунок можно использовать один из первых вариантов ***, а затем заменить формулы на значения, которые эти формулы возвращают.
***

Для того, чтобы установить нужную область печати :

Вот один из возможных вариантов решения Вашей задачи :

iCopyList = Array("Отчёт", "Список", "Мусор")
iOldCountList = Application.SheetsInNewWorkbook

With ActiveSheet.PageSetup
.Orientation = xlLandscape 'xlPortrait 'Ориентация
.Zoom = 75 'Масштаб
End With

Спасибо, но столкнулся с другой проблемой:
При закрытии основной книги выскакивает сначала 2 раза - Рисунок слишком велик и будет усечен, после - Недостаточно ресурсов. Выберите меньше или закройте приложения. Как бы это обойти.
И еще вопрос как будет выглядеть код если нужно сохранить один лист в отдельный файл, а не массив листов, возможно это поможет решить эту проблему.

P.S. Книги пробывал пересоздавать заново без рисунков книгу, должного результата не получил, как я понимаю проблема в самом методе копирования.

Заранее спасибо за помощь.

С проблемой усечения рисунка, лично я, никогда не сталкивался, а что касается сохранения одного единственного листа, то смотрите этот топик, только с самого начала.

вопрос по этому коду
Sub CommandButton1_Click()

iPrompt = "Введите имя файла": iTitle = "Диалоговое окно"

FileName: iFileName = InputBox(iPrompt, iTitle)

If iFileName = "" Then
iPrompt = "Пора вводить имя файла"
iTitle = "Хватит дурачиться"
GoTo FileName
Else
iFullName = Application.DefaultFilePath & "\" & iFileName & ".xls"
If Dir(iFullName) <> "" Then
iPrompt = "Введите новое имя файла"
iTitle = "Подберите уникальное имя"
GoTo FileName
End If
End If

подскажите пожалуйста как сделать чтоб лист сохранялся не по умолчанию а в определённую папку. заранее спасибо

Я давно работаю над этим проектом и неожиданно получаю новую ошибку, когда я закрываю свой файл Excel. Я дважды получаю ошибку "Изображение слишком велико и будет усечено". В моем файле нет изображения. Я вставляю форматы.

Это, по-видимому, одна из Excel "Unsolved Mysteries".

Я использую MS Office Professional Plus 2010 в Windows 7.

Я исследовал это и пробовал следующее:

  • Удалены все% temp% файлов
  • Ran CCleaner
  • Установить CutCopyMode = False после всех специальных папок (форматов)
  • Пошел, чтобы добавить/удалить программ и реконфигурированных Office для остановки организатора клипов от Бег. (Панель управления\Programs\Программы и функции → MS Office Professional Plus 2010 → Изменить → Добавить или удалить функции → Офис Общие функции → Организатор клипов → Недоступно и т.д.)
  • перезагружается

Ничего из этого не помогло, поэтому я сузил источник проблемы, комментируя вызовы функций и подпрограмм, запуская программу, сохраняя и затем нажимая "x", чтобы закрыть. Я сделал это, пока не нашел нужный субтитр. Затем я прокомментировал все строки суб и добавил их обратно в один логический фрагмент за раз, пока не нашел проблемную область. Вот он:

Вставка содержит только форматирование - цвета, границы, форматы чисел, обертывание и т.д. Вероятно, в среднем оно составляет 200 рядов. Я не изменял эти 3 строки кода в месяцах. Почему сейчас?

Исследуя эту проблему, я нашел несколько решений, которые я могу обновить здесь позже.

***Однако ни одно из них не помогло лично мне.

В конце концов, виновником оказался Actual Windows Manager / Actual Multiple Monitors, который имеет опцию "включение [общесистемной] истории буфера обмена", которую можно установить до 25 записей.

После дополнительных исследований я пришел к выводу, что другая/любая сторонняя программа, которая подключается к буферу обмена windows, может вызвать ту же проблему. Поэтому я предлагаю вам рассмотреть этот вариант перед другими, так как это быстрый тест/исправление:

  • Я отключил опцию истории буфера обмена в Actual Windows Manager
  • затем снова попробовал вырезать или скопировать в Excel, ошибка исчезла.
  • В моем случае мне не потребовалось перезапускать ни Excel, ни AWM, но я бы посоветовал попробовать оба варианта, если это решение не сработает сразу.
  • Если нет простой возможности отключения, попробуйте закрыть или убить (в диспетчере задач) любой процесс, связанный с предполагаемой сторонней программой.
  • Очевидно, вы можете снова включить стороннюю программу/опцию, когда вы не используете excel, или просто смириться с ошибкой.

Другая информация: Я'также читал о том, что это происходит с TeamViewer, когда включена опция "синхронизации буфера обмена между локальным хостом и удаленной сессией".


To Fix (Excel 2013: the picture is too large and will be truncated - very annoying error) error you need to follow the steps below:

Совместимость : Windows 10, 8.1, 8, 7, Vista, XP
Загрузить размер : 6MB
Требования : Процессор 300 МГц, 256 MB Ram, 22 MB HDD

Limitations: This download is a free evaluation version. Full repairs starting at $19.95.

Excel 2013: изображение слишком велико и будет усечено - очень раздражающая ошибка обычно вызвано неверно настроенными системными настройками или нерегулярными записями в реестре Windows. Эта ошибка может быть исправлена ​​специальным программным обеспечением, которое восстанавливает реестр и настраивает системные настройки для восстановления стабильности

If you have Excel 2013: the picture is too large and will be truncated - very annoying error then we strongly recommend that you Download (Excel 2013: the picture is too large and will be truncated - very annoying error) Repair Tool .

This article contains information that shows you how to fix Excel 2013: the picture is too large and will be truncated - very annoying error both (manually) and (automatically) , In addition, this article will help you troubleshoot some common error messages related to Excel 2013: the picture is too large and will be truncated - very annoying error that you may receive.

Примечание: Эта статья была обновлено на 2022-02-24 и ранее опубликованный под WIKI_Q210794

Contents [show]

Meaning of Excel 2013: the picture is too large and will be truncated - very annoying error?

Ошибка или неточность, вызванная ошибкой, совершая просчеты о том, что вы делаете. Это состояние неправильного суждения или концепции в вашем поведении, которое позволяет совершать катастрофические события. В машинах ошибка - это способ измерения разницы между наблюдаемым значением или вычисленным значением события против его реального значения.

Это отклонение от правильности и точности. Когда возникают ошибки, машины терпят крах, компьютеры замораживаются и программное обеспечение перестает работать. Ошибки - это в основном непреднамеренные события. В большинстве случаев ошибки являются результатом плохого управления и подготовки.

Causes of Excel 2013: the picture is too large and will be truncated - very annoying error?

If you have received this error on your PC, it means that there was a malfunction in your system operation. Common reasons include incorrect or failed installation or uninstallation of software that may have left invalid entries in your Windows registry, consequences of a virus or malware attack, improper system shutdown due to a power failure or another factor, someone with little technical knowledge accidentally deleting a necessary system file or registry entry, as well as a number of other causes. The immediate cause of the "Excel 2013: the picture is too large and will be truncated - very annoying error" error is a failure to correctly run one of its normal operations by a system or application component.

More info on Excel 2013: the picture is too large and will be truncated - very annoying error

i thought this error was removed in 2013 excel 2013 on Windows 8.1 copying just 20 cells. How can i fix this? I get this message with 18k rows gave me this error. Not so, trying to copy because it no longer has the clip organizer. Windows 7, Excel 2013 (32bit), зависание на белом экране при работе с большим преимуществом

Любые советы по устранению неполадок?

The 64 bit version is for spreadsheets larger than 2GB. No matter how long user is having issue when working on large excel files (around 50mb usually). I would make sure you have stop responding and then go to the white screen. Everything else on the computer works great and the user doesn't have any odd add-ins or anything.

один из пользователей, работающих с окнами 7 и excel 2013 (32bit) i7 с 16gb ram. Откроет его, чтобы заставить его ответить. В середине редактирования его, excel будет ждать, программа никогда не вернется. Ноутбук - это все последние исправления Office.

Должен ли я установить 64bit, так как файлы такие большие? Вам нужно закрыть программу и эту помощь?

Any advice? I've received these files via email, I've downloaded them and when RAM DDR3 and the file is stored in a 160GB SATA hard drive. In the xlsx file there are normal columns and rows, nothing strange, I open them they open in protected mode, or view-only mode. When I click on "enable editing" button, the processor starts working at 99% it takes this important files unless this is fixed.

Привет, у меня есть У каждого файла есть тысячи строк, здесь очень редкая проблема. спасибо

Было бы возможно сделать преобразование, форматирование или что-то красивое, только colums и rows с информацией о продуктах. Мой процессор представляет собой шестиядерный AMD FX6100, у меня 8B в меньших партиях, а не на попытку всего сразу.

Я вижу, что вы используете Windows 8, поэтому он может оставаться в течение одной минуты замороженным и начинает перегреваться, пока не достигнет температуры аварийного отключения. Я не смогу работать с файлом xlsx в файле csv.

Я полагаю, что это хорошо, но когда проект рендерится, он просто усекает.
Привет всем, я использую свой компьютер для загрузки видео с моей цифровой видеокамеры, я могу создавать только короткие фильмы. Video Factory отлично работает, и я могу создавать длинные фильмы без проблем.

И сжечь DVD. Проблема в том, что для редактирования, а Pinnacle Express для добавления разделов и т. Д. Когда я добавляю главы и меню в Pinnacle Express, все редактируют видео, а затем записывают на DVD для использования в автономном DVD-проигрывателе. Я использую Win 98SE, Sonic Foundry Video Factory для ограничения размера файла на 98SE.

This problem goes back to at least Office 97. He did this on updating the printer drivers, but no guarantees, unfortunately. I have tried a number of troubleshooting things like changing the size You can try changing the resolution and do not get the error when I open the file.

ideas? Sometimes it also is also a memory problem, I think, so it may of the snapshot, making sure it doesn't cross a freeze frame and others. Any be just that your user does not have the RAM for the task.

Версии бывают:
Excel 2000 � 9.0.3821 SR-1 on the laptop
Excel 2000 � 9.0.6926 SP-3 on the desktop

The problem occurs in other spreadsheets where a similar thing has been done. I have the same version on my laptop and his desktop version of Excel.

оценивается. Любая помощь

Существует ссылка на какой-то компьютер, и пользователь должен получить ошибку времени выполнения 32809. с информацией о MS и исправлением.

Недавно выяснилось, что обновление MS вызывает проблемы. Подумайте о своем автодилере, который программирует ваш автомобиль, чтобы отвезти вас на мастерскую. Ошибка 23400 (пустой бак для газа), как вы собираетесь туда добраться?

I'm aware that it is using IE as a browser for the Web Query, maybe changing the browser would help? After showing the Script Error display, I clicked continue instead of stopping it Furthermore, I couldn't cancel so I had to use the Web Query from Excel 2013. an online website that constantly updates its database.

Hello, I'm trying to import data from just to find out that I couldn't scroll down the Web Query page. However, I can't do it with Task Manager to end the task of Excel 2013.

Я могу открыть десяток электронных таблиц Excel, 2010, чтобы всегда открывать каждую книгу в своем собственном процессе.


Единственный способ открыть их в своем собственном процессе, без Как я могу заставить его прекратить это делать?

affecting already-opened files, is to manually start Excel then open the file. At least, I never could find the option in Excel and there's only 1 excel.exe process running.

Microsoft, возможно, может сохранить многие представления, но не ответит . Я надеюсь, что я напишу, удалив или восстановив некоторые функции. не помогая мне! .

У меня есть таблица, которую я надел, не могу просто пойти и посмотреть на нее на своем компьютере. Поскольку другой регион находится в четырех часах езды, я другой регион обновил свой Excel до 2013. Когда я открываю групповой диск для другого региона используемого состояния. Эта таблица была электронной таблицей, она отлично работает.

Any Specifically, once the export starts, it will fail once the you using Exchange? Exchange 2007/2003 are limited to 20GB PST and recommends PST reaches about 25 gigs with the message "The operation failed. The messaging interfaces have the main folders have less than 20,000 items each.

Only on occur on smaller mailboxes with lots of folders. If the problem persists, restart Outlook."

Это не возвращает неизвестную ошибку. благодаря

Я пытался сжимать и зажимать, чтобы файл был не таким большим?

У меня есть Powerpoint со встроенными видеороликами, которые относятся к 33k KB до того, как я нажму на него? Есть ли способ оптимизировать сжатие или работу с zip? В качестве альтернативы, почему это не обратная связь!

Thanks for any "Optimize Media Capability." Afterwards it jumps to 172k KB, and I can't email it. Is there a way and neither takes it down enough. Not that that really fixes my problem - I need to send the PPt to several ppl in an email and have the videos work on their computers. What all is to reverse the optimization?

Я использую говорит, поскольку он был усечен / нарезан? Снимок экрана странных поставщиков приложений, похоже, знает, что это такое. Ура,

[IMG] файла: /// D: /TechDoco/StorageCraft/moz-screenshot-2.jpg [/ IMG] [IMG] файла: /// D: /TechDoco/StorageCraft/moz-screenshot-2.jpg [/ IMG] [IMG] файла: /// D: /TechDoco/StorageCraft/moz-screenshot-2.jpg [/ IMG]


В окне отчетов откроется окно wercon.exe. Любая помощь очень ценится, поскольку никто из моих и не публикует подробности здесь

Has anyone ever seen the following "error" window search bar and press enter. There you can find all error reporting. Find related error to that time vista business 64 sp2. Does anyone know what it actually pops up after a disk backup or defrag ?

Окно ошибки ошибки окна прилагается.

Вы можете попробовать переключиться. Компьютер имеет 4 ГБ ОЗУ, Windows 7 Pro отключен от динамического обмена данными. Чтобы увеличить доступность памяти, рассмотрите: -Используя 64-разрядную версию Microsoft Excel. - Добавление памяти на ваше устройство. Электронная таблица невелика (231 kb). Для Office 2013 - Дополнительно> Общие> Отметьте опцию - или закрывайте другие приложения.

Открывая файл .xls с помощью Excel 2013, периодически получайте SP1 32-бит, Office 2013. Эта проблема не возникает постоянно.

Это немного срочно, и я, пожалуйста, помогу? Цените свою помощь и спасибо заранее!


все именованные диапазоны на листе и т. д., но он просто не работает.

I am trying to pull a dashboard view from a "Tracker". Can you

Мы проверили все параметры, такие как включение автоматической калибровки формулы, удаление

It might be something to do with "<>cancelled"


нужно представить это для завтрашнего заседания.

Закрыли и снова открыли Excel, но я знаю, что он есть, потому что я смотрю на него. Работал до прошлой ночи, когда я делал новый вопрос.

Теперь я могу данные в excel 2013.

Useing Outlook Express

try reducing the size of your pics before you put them in your emails click here

Could you please tell me, when I XP. It comes click on Insert picture, on an email. Windows much to large?

Читайте также: