回答編集履歴
1
線のひきかたを変更
answer
CHANGED
|
@@ -21,10 +21,10 @@
|
|
|
21
21
|
For i = 1 To oTbl.Rows.Count
|
|
22
22
|
For j = 1 To oTbl.Columns.Count
|
|
23
23
|
Set oCell = oTbl.Cell(i, j)
|
|
24
|
-
oCell.Borders(ppBorderLeft).
|
|
24
|
+
oCell.Borders(ppBorderLeft).InsetPen = msoTrue
|
|
25
|
-
oCell.Borders(ppBorderRight).
|
|
25
|
+
oCell.Borders(ppBorderRight).InsetPen = msoTrue
|
|
26
|
-
oCell.Borders(ppBorderTop).
|
|
26
|
+
oCell.Borders(ppBorderTop).InsetPen = msoTrue
|
|
27
|
-
oCell.Borders(ppBorderBottom).
|
|
27
|
+
oCell.Borders(ppBorderBottom).InsetPen = msoTrue
|
|
28
28
|
Next
|
|
29
29
|
Next
|
|
30
30
|
|