12个数字围成一个圆圈怎么做

dongdonggege · 发表于 2020-4-28 08:17

各位老师好，我想把1——12这12个数字围成一个圆圈，就好像钟表一样的，这12 个数字我是用文本框做的，但是怎么把12个数字按照12在圆的正北方，3放在东方，6在下方，9在西方。也就是象钟表那样的，象下面的图那样。手动移动不准确，能否用vba把他们排列成圆的。
麻烦各位老师，谢谢。

microyip · 发表于 2020-4-28 08:54

定义好圆心位置以及半径，然后计算一下30度和60度的正弦余弦的距离，不就出来了XY值了吗？

dongdonggege · 发表于 2020-4-28 09:04

不好意思，我不会做啊，文本框已经做好了，在文件里，能否根据我的圆的半径，麻烦老师出手，谢谢。

dongdonggege · 发表于 2020-4-28 09:05

microyip 发表于 2020-4-28 08:54
定义好圆心位置以及半径，然后计算一下30度和60度的正弦余弦的距离，不就出来了XY值了吗？

不好意思，我不会做啊，文本框已经做好了，在文件里，能否根据我的圆心位置和半径，麻烦老师出手，谢谢。

microyip · 发表于 2020-4-28 11:26

本帖最后由 microyip 于 2020-4-28 12:49 编辑

复制代码

microyip · 发表于 2020-4-28 11:32

本帖最后由 microyip 于 2020-4-28 11:47 编辑

附上附件以供参考

dongdonggege · 发表于 2020-4-28 12:11

microyip 发表于 2020-4-28 11:32
附上附件以供参考

谢谢老师，辛苦了。
我找了论坛，好像有人做了个像的，但是位置顺序有问题。

Private Type vPoint
X As Single
Y As Single
End Type
Sub test() '添加文本框
For i = 1 To 12
Set shp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 20, 20, 20, 20)
With shp
End With
With shp.TextFrame.Characters
.Text = i
.Font.Size = 12
.Font.FontStyle = "加粗"
End With
With shp
.Left = i * 20
.Top = 20
.Line.Visible = msoFalse
.Name = "文字" & i
End With
Next
End Sub
Sub vDrawjx() '围成圆圈
Dim vArr() As vPoint
Dim vPI!, vJ!, R!, vLength!
Dim i&, vNum&
vLength = 50
vNum = 12
ReDim vArr(vNum - 1)
vJ = 1.74532925199433E-02 '=π/180
R = vLength / 2 / Sin(180 / vNum * vJ)
For i = 0 To vNum - 1
vArr(i).X = R * Cos(i * 360 / vNum * vJ) + 220
vArr(i).Y = R * Sin(i * 360 / vNum * vJ) + 220
Next
For i = 1 To vNum - 1
ActiveSheet.Shapes("文字" & i).Select
With Selection.ShapeRange
.Left = vArr(i).X
.Top = vArr(i).Y
End With
Next
i = 0: ActiveSheet.Shapes("文字12").Select
With Selection.ShapeRange
.Left = vArr(i).X
.Top = vArr(i).Y
.Rotation = 90 + i * 360 / vNum
End With
'Selection.Unselect
End Sub

复制代码

所以，我正苦恼呢，感谢老师。

dongdonggege · 发表于 2020-4-28 13:07

做成完整文件，请老师指正

Sub test()
'添加文本框
For i = 1 To 12
Set shp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 20, 20, 20, 20)
With shp
End With
With shp.TextFrame.Characters
.Text = i
.Font.Size = 12
.Font.FontStyle = "加粗"
End With
With shp
.Left = i * 20
.Top = 20
.Line.Visible = msoFalse
.Name = "文字" & i
End With
Next
'添加圆
Set shp = ActiveSheet.Shapes.AddShape(msoShapeOval, 210, 100, 147#, 147#)
With shp
.Fill.ForeColor.SchemeColor = 10
.Line.Visible = msoFalse
End With
With shp
.Name = "Oval 1"
End With
End Sub
Sub 图形排位()
'Write By:Micro,QQ:79833378
Dim dicNum As Object, oShape As Object
Dim nR As Double, nPointX As Double, nPointY As Double
Dim nI As Long, nPai As Double, nX As Double, nY As Double
nPai = Application.WorksheetFunction.Pi
Set dicNum = CreateObject("Scripting.Dictionary")
For Each oShape In ActiveSheet.Shapes
With oShape
If .Name Like "Text Box*" Then
.Delete
ElseIf .Name Like "文字*" Then
Set dicNum(Val(Replace(oShape.Name, "文字", ""))) = oShape
ElseIf .Name Like "Oval 1" Then
nR = .Width / 2
nPointX = .Left + nR
nPointY = .Top + nR
nR = Int(nR) + 30
End If
End With
Next
For nI = 1 To 12
nX = nPointX + nR * Cos(nPai / 2 - nI * nPai / 6)
nY = nPointY - nR * Sin(nPai / 2 - nI * nPai / 6)
With dicNum(nI)
.Left = nX - .Width / 2
.Top = nY - .Height / 2
End With
Next
End Sub

复制代码

附件：

microyip · 发表于 2020-4-28 14:11

dongdonggege 发表于 2020-4-28 13:07
做成完整文件，请老师指正附件：

既然图形是你自创的，何必直接去定义结果？

dongdonggege · 发表于 2020-4-28 14:40

microyip 发表于 2020-4-28 14:11
既然图形是你自创的，何必直接去定义结果？

害怕文件丢失了

		自动登录	找回密码
密码			免费注册

[求助] 12个数字围成一个圆圈怎么做