回答編集履歴
1
線のひきかたを変更
test
CHANGED
@@ -44,13 +44,13 @@
|
|
44
44
|
|
45
45
|
Set oCell = oTbl.Cell(i, j)
|
46
46
|
|
47
|
-
oCell.Borders(ppBorderLeft).
|
47
|
+
oCell.Borders(ppBorderLeft).InsetPen = msoTrue
|
48
48
|
|
49
|
-
oCell.Borders(ppBorderRight).
|
49
|
+
oCell.Borders(ppBorderRight).InsetPen = msoTrue
|
50
50
|
|
51
|
-
oCell.Borders(ppBorderTop).
|
51
|
+
oCell.Borders(ppBorderTop).InsetPen = msoTrue
|
52
52
|
|
53
|
-
oCell.Borders(ppBorderBottom).
|
53
|
+
oCell.Borders(ppBorderBottom).InsetPen = msoTrue
|
54
54
|
|
55
55
|
Next
|
56
56
|
|