Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Определить стандартный шрифт для файла
 
#1
27.03.2012 18:12:11
Знатоки, подскажите пожалуйста как можно определить стандартный шрифт, установленный для конткретного файла (не для всего приложения - Excel)?  
Вопрос связан со следующей проблемой:    
есть файл, в котором стандартный шрифт установлен Arial (по крайней мере в самом файле и новые листы создаются с Arial), но для Excel на компе установлен как стандартный Times New ...  
Из-за этого при копировании данных (специальная вставка\форматы) из файла с Arial в новый создаваемый файл (с Times) у бОлльшей части столбцов получается другая ширина и соответственно "разъезжается" интерфейс.    
Поиск в свойства Workbooks результатов не дал (может не соображу где смотреть).  
 
Всем не равнодушным заранее спасибо.
 
 
 
#2
27.03.2012 18:24:08
Не пробовали записать смену фонта рекордером?  
 
   With Application  
       .StandardFont = "Arial"  
       .StandardFontSize = "10"  
   End With
 
 
 
#3
27.03.2012 18:26:12
Извините, не то... Так много текста, что начало уже и забыл :)
 
 
 
#4
27.03.2012 18:34:08
Может как-то так?  
 
MsgBox Cells(Rows.Count, Columns.Count).Font.Name  
 
Вряд ли кто полезет туда шрифт менять...
 
 
 
#5
27.03.2012 23:34:47
Ну так и установите для Excel на компе стандартным Arial
 
 
 
#6
28.03.2012 10:06:24
"MsgBox Cells(Rows.Count, Columns.Count).Font.Name"  
 
- это в надежде что самую крайнюю ячейку не переформатировали :), а хочется наверняка.  
 
"Ну так и установите для Excel на компе стандартным Arial"  
 
- этот вариант тоже не подойдет, т.к. мне то будут приходить файлы с другиъх компов, на которых какой угодно шрифт может быть установлен.  
 
Раз новый лист в файле создается со своим (отличным от Excel) шрифтом, значит этот параметр где то сидит, но вот где?
 
 
 
#7
28.03.2012 10:14:00
Ну а если и сидит, а лист переформатировали - что даст Вам этот параметр?
 
 
 
#8
28.03.2012 10:47:37
Да, протестировал этот случай - не подходит (для листа с единственным шрифтом на весь лист всё таки нашёл Workbooks(X).sheets(Y).cells.font.name)  
 
Да и проблема вроде не в этом оказалась.  
В одном файле шиирна столбца 8,43 (64 пикселя), а в другом 9,83 (64 пикселя) - МИСТИКА какая то. Как это может быть?
 
 
 
#9
28.03.2012 13:48:06
Нашел таки причину:  
при копировании сразу всего листа (Cells.Copy) ширина столбцов "съезжает", а при выделении столбцов например - всё ок.  
 
Спасибо не равнодушным. Тема закрыта
 
 
 
Страницы: 1
Читают тему
Наверх