표 내에 선택된 셀의 사이즈를 조정하고자 합니다.
특정 셀 칼럼 전체를 일괄 줄일려고 아래와 같이 해보았는데요,… 잘 안되네요…
cellwidth = 5.0
hwp.HAction.Run(“TableCellBlock”)
hwp.HAction.Run(“TableCellBlockExtend”)
hwp.HAction.Run(“TableLowerCell”)
hwp.HAction.GetDefault(“TablePropertyDialog”, hwp.HParameterSet.HShapeObject.HSet)
hwp.HParameterSet.HShapeObject.Hset.SetItem(“ShapeType”, 3)
hwp.HParameterSet.HShapeObject.Hset.SetItem(“ShapeCellSize”, 1)
hwp.HParameterSet.HShapeObject.ShapeTableCell.Width = hwp.MiliToHwpUnit(cellwidth)
hwp.HAction.Execute(“TablePropertyDialog”, hwp.HParameterSet.HShapeObject.HSet)
1개의 좋아요
안녕하세요.
원하시는 결과와 현재 표의 row,col 갯수를 알 수 없어 정확한 정보를 드리기 어려우나
제공해주신 코드를 바탕으로 유추해보면
column을 지정해서 셀 너비를 일괄로 줄이시려는 것 같습니다.
제공해 주신 코드로는
hwp.HAction.Run(“TableCellBlock”)
hwp.HAction.Run(“TableCellBlockExtend”)
hwp.HAction.Run(“TableLowerCell”)
까지만 봤을 때 셀 하나를 선택하고 아래쪽으로 한칸만 확장했는데 원하시는 결과가 나오지 않은 듯 합니다.
이때 아마 column이 3개이상 일 것 같은데요…
hwp.HAction.Run(“TableLowerCell”)
대신에
hwp.HAction.Run(“TableCellBlockCol”)
을 사용해서 열 전체를 선택하도록 하고 이후 코드를 진행하면 아마 될 듯 합니다.
더 궁금한 점 있으시거나, 원하시는 답변이 아니시라면 추가로 문의 주세요!
2개의 좋아요
def CellResize(cellwidth):
hwp.HAction.Run(“TableCellBlock”)
hwp.HAction.Run(“TableCellBlockExtend”)
hwp.HAction.Run(“TableCellBlockCol”)
hwp.HAction.GetDefault(“TablePropertyDialog”, hwp.HParameterSet.HShapeObject.HSet)
hwp.HParameterSet.HShapeObject.Hset.SetItem(“ShapeType”, 3)
hwp.HParameterSet.HShapeObject.Hset.SetItem(“ShapeCellSize”, 1)
hwp.HParameterSet.HShapeObject.ShapeTableCell.Width = hwp.MiliToHwpUnit(cellwidth)
hwp.HAction.Execute(“TablePropertyDialog”, hwp.HParameterSet.HShapeObject.HSet)
return
안내해주신대로 수정했느느데요…워킹안하는 상태입니다. ㅠㅠ
2개의 좋아요
안녕하세요.
코드를 실행하기 전 표의 상태(스크린 샷), 기대 결과의 표의 상태(코드실행이 아닌 한글에서 직접 변경했을 때의 스크린샷), 현재 코드를 실행했을 때의 결과(스크린샷)
3개의 스크린샷을 첨부해주시면 추가적으로 확인해보도록 하겠습니다.
2개의 좋아요
ilco
5
아래 두 개 라인을 지우고 실행해보세요.
hwp.HParameterSet.HShapeObject.Hset.SetItem(“ShapeType”, 3)
hwp.HParameterSet.HShapeObject.Hset.SetItem(“ShapeCellSize”, 1)
이런 식으로요.
cellwidth = 5.0
hwp.TableCellBlock()
hwp.TableCellBlockExtend()
hwp.TableColPageDown()
hwp.HAction.GetDefault("TablePropertyDialog", hwp.HParameterSet.HShapeObject.HSet)
hwp.HParameterSet.HShapeObject.ShapeTableCell.Width = hwp.MiliToHwpUnit(cellwidth)
hwp.HAction.Execute("TablePropertyDialog", hwp.HParameterSet.HShapeObject.HSet)