• detox
  • Восстановленный участник
  • На форуме с 13 октября 2005г.
  • Сообщений: 19
  • Спасибо: 0

Тема: Центрование MText

Каким параметром через COM можно отцентровать MText?

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Центрование MText

Менять attachmentpoint и insertionpoint для объекта

  • На форуме с 21 июня 2005г.
  • Сообщений: 21
  • Спасибо: 0

Re: Центрование MText

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

Select Case AlignText
  Case acAttachmentPointTopLeft
   SP(0) = SP(0) + uvc_TextIndentLeft
   SP(1) = SP(1) - uvc_TextIndentTop
  Case acAttachmentPointTopCenter
   SP(0) = SP(0) + (CellWidth - TextWidth) / 2
   SP(1) = SP(1) - uvc_TextIndentTop
  Case acAttachmentPointTopRight
   SP(0) = SP(0) + CellWidth - uvc_TextIndentLeft - TextWidth
   SP(1) = SP(1) - uvc_TextIndentTop
  Case acAttachmentPointMiddleLeft
   SP(0) = SP(0) + uvc_TextIndentLeft
   SP(1) = SP(1) - (CellHeight - TextHeight) / 2
  Case acAttachmentPointMiddleCenter
   SP(0) = SP(0) + (CellWidth - TextWidth) / 2
   SP(1) = SP(1) - (CellHeight - TextHeight) / 2
  Case acAttachmentPointMiddleRight
   SP(0) = SP(0) + CellWidth - uvc_TextIndentLeft - TextWidth
   SP(1) = SP(1) - (CellHeight - TextHeight) / 2
  Case acAttachmentPointBottomLeft
   SP(0) = SP(0) + uvc_TextIndentLeft
   SP(1) = SP(1) - CellHeight + TextHeight + uvc_TextIndentTop
  Case acAttachmentPointBottomCenter
   SP(0) = SP(0) + CellWidth - uvc_TextIndentLeft - TextWidth
   SP(1) = SP(1) - CellHeight + TextHeight + uvc_TextIndentTop
  Case acAttachmentPointBottomRight
   SP(0) = SP(0) + CellWidth - uvc_TextIndentLeft - TextWidth
   SP(1) = SP(1) - CellHeight + TextHeight + uvc_TextIndentTop
 End Select