作者:乔山办公网日期:
返回目录: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键,即可得到星星符号。