乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > Excel 如何输入五角星-excel打五角星,excel怎么输入五角星

Excel 如何输入五角星-excel打五角星,excel怎么输入五角星

作者:乔山办公网日期:

返回目录:excel表格制作


鼠标右键点击折线,选择“设置数据系列格式”-“数据标记选项”
选择“内置”,就可以挑选了

BAIXINGR的答案只能在一个单元格插入五角星,五角星的大小只能用调整字号来调整,调大了所在单元格的行高列宽也变大,影响效果。下面是另一方法:
点击“绘图”按扭,“自选图形”“星与旗帜”选择五角星图形,再在表格任意地方点一下,表格就插入五角星了,这样五角星可调整大小,可放在表的任何地方。
参考7a686964616fe58685e5aeb9333
Option Explicit

Private lTriangle As FormShape
Private lEllipse1 As FormShape
Private lEllipse2 As FormShape
Private lEllipse3 As FormShape
Private lEllipse4 As FormShape
Private lEllipse5 As FormShape
Private lRectangle As FormShape

Private Sub UserForm_Layout()

'destroy any preexisting shapes.
Call DestroyShapes

'add the Shapes to the form.
lTriangle = AddShape(Me, Triangle, Me.Width / 2, 0, 120, 80, &HFFFF00, "Click Me")
lEllipse1 = AddShape(Me, Ellipse, 10, 10, 120, 40, vbMagenta, "Click Me")
lEllipse2 = AddShape(Me, Ellipse, 50, 60, 60, 60, vbYellow, "Click Me")
lEllipse3 = AddShape(Me, Ellipse, 160, 100, 40, 40, &HFF&)
lEllipse4 = AddShape(Me, Ellipse, 200, 100, 30, 30, &H8080FF)
lEllipse5 = AddShape(Me, Ellipse, 230, 100, 20, 20, &HC0C0FF)
lRectangle = AddShape(Me, Rectangle, 10, 100, 60, 60, , "Click Me")

End Sub

Private Sub UserForm_Click()

Dim tpt As POINTAPI

GetCursorPos tpt

ScreenToClient lFormHwnd, tpt

'handle the shapes click events.
Select Case RealChildWindowFromPoint(lFormHwnd, tpt.x, tpt.y)
Case lTriangle.hwnd
If GetPixel(lFormDC, tpt.x, tpt.y) = lTriangle.Fill Then
MsgBox "You clicked Triangle1"
End If
Case lEllipse1.hwnd
If GetPixel(lFormDC, tpt.x, tpt.y) = lEllipse1.Fill Then
MsgBox "You clicked Ellipse1."
End If
Case lEllipse2.hwnd
If GetPixel(lFormDC, tpt.x, tpt.y) = lEllipse2.Fill Then
MsgBox "You clicked Ellipse2."
End If
Case lRectangle.hwnd
MsgBox "You clicked Rectangle1"
End Select

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

'remove the form subclass.
Call UnSubClassForm(True)

End Sub

Private Sub DestroyShapes()

DestroyWindow lTriangle.hwnd
DestroyWindow lEllipse1.hwnd
DestroyWindow lEllipse2.hwnd
DestroyWindow lEllipse3.hwnd
DestroyWindow lEllipse4.hwnd
DestroyWindow lEllipse5.hwnd
DestroyWindow lRectangle.hwnd

End Sub

Private Sub CommandButton1_Click()

Unload Me

End Sub

方法1:插入对象

1、选中任意单元格,单击插入选项卡,找到符号功能组

2、单击符号按钮,在弹出的符号对话框中单击符号选项卡,在右侧子集下拉列表中选择其他符号

3、选择星星图案,单击插入按钮,即可。

方法2:使用ALT+小键盘法:

双击要输入的单元格,按住ALT键不要放,在小键盘区域(下图红框框住部分)中依次输入41455,然后松开ALT键,即可得到星星符号。

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网