Sub DeleteShapes()
Dim SelSlide As Slide
'Dim SelPicName As String ' 控件有标题名字
'Dim SelPicText As String ' 没名字只有说明的
Dim SelText1 As String ' 文本框
Dim SelText2 As String ' 文本框
Dim i As Long
If ActiveWindow.Selection.Type = ppSelectionNone Then
MsgBox (" 请选中待删除的形状! ")
Else
' SelPicName = ActiveWindow.Selection.ShapeRange.Name
' SelPicName = ActiveWindow.Selection.ShapeRange.AlternativeText
SelText1 = ActiveWindow.Selection.ShapeRange.Width
SelText2 = ActiveWindow.Selection.ShapeRange.Height
If vbYes = MsgBox(" 是否要删除所有幻灯片中的同样的形状:“ " + SelText1 + " x " + SelText2 + " ”? ", vbYesNo, " 信息提示 ") Then 'SelText 相应替换为 SelPicName 或 SelPicText
For Each SelSlide In ActivePresentation.Slides
On Error Resume Next
'SelSlide.Shapes(SelPicName).Delete ' 删有名字的最简单,直接删
For i = 1 To SelSlide.Shapes.Count ' 没名字的得匹配相关属性
'If SelSlide.Shapes.Item(i).AlternativeText = SelPicText Then
If SelSlide.Shapes.Item(i).Width = SelText1 And SelSlide.Shapes.Item(i).Height = SelText2 Then
'MsgBox ("11")
SelSlide.Shapes.Item(i).Delete
End If
Next
Next
End If
End If
End Sub
阅读全文
Sub Main()
On Error Resume Next
Dim temp As New Word.Document, tmpShape As Shape, tmpSlide As Slide
For Each tmpSlide In ActivePresentation.Slides
For Each tmpShape In tmpSlide.Shapes
temp.Range().Text = temp.Range() + tmpShape.TextFrame.TextRange.Text
Next tmpShape
Next tmpSlide
temp.Application.Visible = True
End Sub
阅读全文
1.Ctrl+J 复制一个新图层
2.进入通道面板,复制一个噪点最多的通道
3.滤镜–其他–高反差保留 (我一般设数值13)
4.图像–计算 (混合模式选择强光) 计算3次,得到Alpha3
5.按住Ctrl键 单击Alpha 3 出现选区
6.Ctrl+Shift+I 反选,回到图层面板 Ctrl+H 隐藏选区
7.Ctrl+M 拉动曲线(向左上方稍微拉动,不易过大,自行调整)
8.如果脸上还有其他噪点 可用修复画笔等工具去除
好啦 简单的磨皮就告成了!
小货的操作~
1修复一下脸上的斑点
2复制一个图层 设置属性为 滤色(其实就是无损变亮)
3然后加蒙版(需要亮的比如脸就加亮,其他不需要亮的就擦去)
4用颜色蒙版调节脸部颜色
5然后再进行上面的磨皮
盖印可见图层 【Ctrl】+【Alt】+【Shift】+【E】
阅读全文
http://xiaoqu.qq.com/
http://proxy.music.qq.com/
http://strategy.beacon.qq.com/
http://eventlog.beacon.qq.com/
m.qzone.com
shn.photo.qq.com
cgi.pub.qq.com
isdspeed.qq.com
wspeed.qq.com
lbs.map.qq.com
p.mb.qq.com
m.qpic.cn
ugc.qpic.cn
imgcache.qq.com
xiangji.qq.com
plus.xiangji.qq.com
monitor.uu.qq.com
阅读全文
C:\Users\Administrator\Documents\Tencent Files\QQ号\MsgBackup
其他应该注意的地址:
C:\Users\Administrator\Documents\Tencent Files\QQ号\FileRecv\MobileFile
C:\Users\Administrator\Documents\Tencent Files\QQ号\FileRecv
C:\Users\Administrator\Music\Downloads
阅读全文
1、可能是硬件的问题,准确点是内存的问题你可以重启系统,使腾讯电脑管家的硬件检测功能检测一下内存的型号然后去买条新的内存换上
2、 电脑不心装上了恶意软件,或上网时产生了恶意程序,建议用360 卫士 、金山卫士等软件,清理垃圾,查杀恶意软件,就可能解决。实在不行,重装,还原过系统,可以解决软件引起的问题。
3、最近电脑中毒、安装了不稳定的软件、等,建议全盘杀毒,卸了那个引发问题的软件,重新安装其他 版本,就可能解决. 再不行,重新装过系统就ok.
4、电脑机箱里面内存条进灰尘,拆开机箱,拆下内存条,清洁下内存金手指,重新装回去,就可能可以了。
5、电脑用久了内存坏、买到水货内存、多条内存一起用不兼容等,建议更换内存即可能解决。
6、如果不能进入系统,可以开机后 到系统选择那里 按f8 选 起作用的最后一次正确配置和安全模式,可能可以进入系统。
7、电脑用久了,硬盘坏,重新分区安装系统可以修复逻辑坏道,还是不行,那就到了该换硬盘的时候了,换个硬盘就可以解决。
8、点开始菜单 运行 输入 cmd 回车,在命令提示符下输入 for %1 in (%windir%\system32\*.dll) do regsvr32.exe /s %1 然后 回车。然后让他运行完,应该就可能解决。
来源:https://m.kafan.cn/edu/81901241.html
阅读全文
我检查了一下,/e/data/tmp/中的模版缓存文件很多都是0字节的
也就是根本没文本在里面
因为我的首页是使用了动态首页,里面主要的函数是DtNewsBq,在
帝国cms源码中常用函数所在位置
这篇文章中搜索一下就知道了它的具体位置
在/e/class/functions.php line 1529
然后打开这个文件
发现是写入函数出的问题
就是2580行左右的
WriteFiletext($file,AddCheckViewTempCode().$indextext);
然后我发现是AddCheckViewTempCode()出的问题,单独输出是OK的
然后我想有没有可能是参数不全导致的,所以我就在里面加了个空的东西
AddCheckViewTempCode("")
竟然成功了,可能是某些新版本的php为了安全,在自定义函数里必须加参数吧
阅读全文
https://www.php.cn/faq/502210.html
华硕AAFP接口可以接的线包括:
电源的开关线、复位的开关线、电源灯的线。
音频线,需接在主板AAFP接口(即前置音频接口上)。
具体来说,AAFP接口为前面板音频连接排针,其接线方式如下:
第一针“MIC-IN”应该对应接的针为“ GND”。
然后用户再将下一针“MIC-R”隔上一针插到“LINEOUT-FR”对面的针”LINEOUR-RR“里。
接着用户需要将下一针插入”LINEOUT-FL“对面则需要插 ”LINEOUT-RL“。
在这些插针的顺序中,第八针是空针,用户可以不用接线来对应,第七针也是空针用户不需要连接这两针。
AUD_MIC_IN 前置麦克输入,AUD_GND 供模拟音频电路使用的接地,AUD_MIC_BIAS 麦克偏置电压。
AUD_VCC 供模拟音频电路使用的滤波 +5 V, AUD_FPOUT_R 输出给前置的右声道音频信号,AUD_RET_R 从前置返回的右声道音频信号,HP_ON 为以后控制耳机放大器保留,KEY 无针脚,AUD_FPOUT_L 输出给前置的左声道音频信号。
好像是说实线必须连
貌似还要进BIOS设置一下
阅读全文
昨天忽然想起魔趣,已经有很久没刷机了,所以一直没关注
然后抖音里有新闻说是魔趣已经删库跑路了
我进官网看了一下,龙猪最后是2023年1月份更新的微博,自嘲删库跑路了
都一年了,我才知道这个事情
看来第三方的系统确实很难熬下去,刷机的人越来越少,手机硬件越来越强,已经没必要非刷第三方rom增加速度了
想起我第一次刷魔趣是在老婆的S4手机上,一晃10多年过去了
属于我们的刷机时代悄悄落幕,新的时代来临了
落寞的我们也将被时代所摒弃,就像我老是揶揄老妈不会用智能手机,未来的我们也会被孩子们揶揄太落后吧
忽然有点淡淡的伤感
阅读全文
根据网上攻略,先把车变更给老婆,再卖回给自己
先带老婆开车到车管所,刷身份证和脸进入,然后到导购台取号
然后等叫号,12号窗口叫到我的号,到12号窗口说明来意,先问清楚了牌是否在我名下,她说车交易后保留2年,但原车牌需要持有一年以上,变更很简单,两人身份证,结婚证,行驶证,绿本好像就用这些,然后在那等,中间要拍照,老婆也要拍一次,然后听大姐指挥,拿着流水去另外一个窗口打印车相片,回到12窗口又叫到4号窗口交费10块,4号窗口大姐叫10分钟后到2号窗口去拿新绿本和新行驶证,拿到后回去回到12号窗口,大姐叫我再取一个号给她办结,我又到导购台取了一个a开头的号给她,她说可以了,变更好了,让我去找二手市场交税。推荐了一个叫大广的。
带老婆开车去到二手市场,到办公室,签二手车买卖协议,双方按手印,交易金额随便写,然后听大姐的到车前拍照,我和老婆一人站车头一边,拍好到大厅交费上税,400大洋,有了上税证明后,开车回车管所,到检车线前,进小房子交材料,里面大姐叫我们拆旧牌,从房子门口的纸箱拿钳子和螺丝批,那钳子很给力,一夹,防盗螺丝帽就掉了,拆牌放车上,工具和拆下螺丝丢回纸箱,到房子里拿回资料,开车往前到检车线闸口,拿出材料,首页有放行条形码,扫一下开闸,到检车线大棚,开到指定位置,停车熄火,关所有窗,后备箱拿出三脚架放车后面,打开前盖,等检车员过来检,记得问他车架号在哪,一般在副驾脚底,他检验完让你开车走,记得拿回三脚架,开到停车位,用拓印条把车架号拓印下来,记得字母要齐全,回到检车大棚旁边办公室,把拓印条给检车员,他办理一会就行了,让回大厅继续办理。还给了一个c开头的号。回到车,拿上旧车牌,刷身份证进大厅,看排号,9号窗口已经叫到我刚拿的c号,过去办理,我说直接用旧车车牌,不用选,她帮弄资料了,然后4号窗口交费120块,等10分钟在2号窗口拿绿本和行驶证,问了一下,下午3点后才能拿车牌,于是先回家吃饭,3点后去拿牌装车上,搞定,忙碌的一天!!!
阅读全文
第 3 页,共 103 页«12345...102030...»最旧 »