我在现有的pdf上画了一些麻烦,我找到了一个代码来在现有的PDF上添加文字,我试图让它适应画圈,但结果只是一个空白页有没有人知道如何解决这个问题?
我的代码:
Sub test()
Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range
Set rng1 = Sheet1.Range("A1:A10")
Set rng2 = Sheet1.Range("C1:C10")
Union(rng1, rng2).Select
End Sub
答案 0 :(得分:6)
您忘了添加cb.Stroke();
请尝试这样:
cb.SetColorStroke(iTextSharp.text.BaseColor.GREEN);
cb.Circle(150f, 150f, 50f);
cb.Stroke();