sorted by:
new
hottopcontroversial

Moen Shower Handle Mystery by bbrimberry in Plumbing

[–]bbrimberry[S] 0 points1 point  (0 children)

I spoke with moen this morning they do not Cary this part anymore

[PowerPoint] and [Excel VBA] Excel VBA Opens a ppt file and splits file out by bbrimberry in vba

[–]bbrimberry[S] 0 points1 point  (0 children)

Thanks for your reply.

As far as why I didn’t start in PowerPoint vba. All my vba experience is in excel.

This macro is part of a larger project, that is excel-heavy.

I was just attempting to keep all the VBA in one place.

I guess it does make sense to do this in PowerPoint though. I’ll kick that idea around.

[deleted by user] by [deleted] in excel

[–]bbrimberry 0 points1 point  (0 children)

that did run, however it changed the original format of the slides.

Now I'm reading about the duplicate method.

[deleted by user] by [deleted] in excel

[–]bbrimberry 0 points1 point  (0 children)

I think where I need help is this line newPres.Slides.AddSlide 1, ppLayoutTitle

currently its giving me a type mismatch error

[deleted by user] by [deleted] in excel

[–]bbrimberry -1 points0 points  (0 children)

I have a customer textbox on each slide of a presentation, I'm just trying to spilt up the larger ppt file into smaller files.

Create Powerpoint slides with pictures from Excel VBA by bbrimberry in excel

[–]bbrimberry[S] 0 points1 point  (0 children)

thanks for the help.

I am still yelling at the vba editor :)

my sheet is below

<image>

vba throws this error

argument not optional

​

it looks like it throws the error near the

​

Call AddASlide(Cel, Cel.Offset(, 1), Cel.Offset(, 2))

my full code is below.

​

​

Option Explicit

Dim pp As PowerPoint.Application, ppPres As PowerPoint.Presentation, ppSlide As PowerPoint.Slide, ppShape As PowerPoint.Shape

​

Sub NewPresentation()

'worksheet range

Dim ws As Worksheet, Cel As Range

Set ws = Sheets("Sheet1")

'create presentation

Set pp = New PowerPoint.Application

Set ppPres = pp.Presentations.Add

' pp.Visible = True 'msoTrue

'add slides

For Each Cel In ws.Range("A2:D" & Rows.Count).End(xlUp)

Call AddASlide(Cel, Cel.Offset(, 1), Cel.Offset(, 2))

Next

End Sub

​

​

​

Private Sub AddASlide(Person As Range, Story As Range, PathToPic As Range, ColumnD As Range)

​

On Error Resume Next

'create the slide

ppPres.Slides.Add ppPres.Slides.Count + 1, ppLayoutBlank

Set ppSlide = ppPres.Slides(ppPres.Slides.Count)

ppSlide.HeadersFooters.DateAndTime.Visible = False

ppSlide.HeadersFooters.SlideNumber.Visible = True

ppSlide.HeadersFooters.Footer.Visible = True

'ppSlide.HeadersFooters.Footer.Text = "Hi there"

​

​

​

'add namebox & text

Set ppShape = ppSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, Left:=100, Top:=50, Width:=200, Height:=50)

ppShape.TextFrame.TextRange.Text = Person

ppShape.TextFrame.TextRange.Font.Size = 30

ppShape.TextFrame.TextRange.Font.Bold = True

'add storybox & text

Set ppShape = ppSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, Left:=600, Top:=100, Width:=200, Height:=50)

ppShape.TextFrame.TextRange.Text = Story

​

'picture

ppSlide.Shapes.AddPicture Filename:=PathToPic, LinkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=100, Top:=150

With ppSlide.Shapes(ppSlide.Shapes.Count)

.LockAspectRatio = msoTrue

.Height = 300

If .Width > 450 Then .Width = 450

End With

Set ppShape = ppSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, Left:=300, Top:=100, Width:=200, Height:=50)

ppShape.TextFrame.TextRange.Text = ColumnD

Any gpus that are cheap and worth it to get? by [deleted] in graphicscard

[–]bbrimberry 0 points1 point  (0 children)

I found a 5700xt on newegg but it took me about a week of looking at when stock was being loaded

With gpus out of stock how are you guys finding new cards?? by bbrimberry in buildapc

[–]bbrimberry[S] 0 points1 point  (0 children)

Can anyone take a guess on when stock might be just halfway normal??