Results of 1 - 1 of about 676 for 』（ ! ---- | ----* (0.109 sec.)
』（ (97519), ---- (-97635)
- [[20180131081004]]
- #score: 4656
- @digest: f5d21637aa21bfcc34f75ec10595e078
- @id: 75393
- @mdate: 2018-01-30T23:20:25Z
- @size: 1085
- @type: text/plain
- #keywords: beforeheight (21016), activeinspector (5156), wordeditor (3985), rowheight (3981), typetext (3676), ルッ (3406), copypicture (2431), に縮 (1898), に常 (1625), 一定 (1492), 縮小 (1203), 宜変 (1100), 小し (988), outlook (715), に画 (686), 適宜 (673), 像の (591), cells (564), ト") (545), 示頂 (537), の高 (531), 画像 (493), トル (443), 高さ (436), selection (378), らコ (371), アウ (366), ウト (354), 素人 (332), 定に (294), windows (249), イズ (234)
- 『アウトルックに常に画像の高さを一定に縮小して、エクセルからコピーしたいです。』（vba素人）
アウトルックに常に画像の高さを一定に縮小して、エクセルからコピーしたいです。 下記のコードではセルごとの高さが一定になってしまい、セルによっては入力している文字が表示されなくなってしまいます。 どのように修正すればよいか、ご教示頂けますでしょうか。 Sub main() Dim ap As Object, beforeheight As Variant, w1 As Worksheet, g As Long Set ap = CreateObject("outlook.application") Set w1 = Worksheets("コメント") g = w1.Cells(Rows.Count, 1).End(xlUp).Row With ap.ActiveInspector.wordeditor.Windows(1).Selection w1.Select beforeheight = Range(Cells(1, 1), Cells(g, 1)).RowHeight Range(Cells(1, 1), Cells(g, 1)).RowHeight = 30 'ちょうど良いサイズになるよう数字は適宜変える。 Range(Cells(1, 1), Cells(g, 1)).Select Selection.CopyPicture .Paste Range(Cells(1, 1), Cells(g, 1)).RowHeight = beforeheight .TypeText Chr(13) & Chr(13) End With End Sub ＜ 使用 Excel:Excel2010、使用 OS:unknown ＞... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201801/20180131081004.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 98557 documents and 615422 words.
訪問者：